Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: Accessing the hash name in perl

by duyet (Friar)
on Mar 22, 2017 at 12:34 UTC ( [id://1185442]=note: print w/replies, xml ) Need Help??


in reply to Accessing the hash name in perl

It can be easier :) Define your hash in eg. My_var.pm:
package My_var; use strict; use warnings; our $test = { 'hash1' => { 'paramA' => '00' , 'paramB' => 'FF' , }, 'hash2' => { 'paramA' => '01' , 'paramB' => '02' , }, 'hash3' => { 'paramA' => '00' , 'paramB' => '03' , }, }; 1;

Mind "our $test;" and "1;" at the end of package file. Info on our.

In your script, just include the package

#!/usr/local/bin/perl use strict; use warnings; # CPAN package use Data::Dumper; # private package use My_var; print "$My_var::test->{hash1}{paramA}\n"; print Dumper( $My_var::test );

Output:

00 $VAR1 = { 'hash1' => { 'paramB' => 'FF', 'paramA' => '00' }, 'hash2' => { 'paramA' => '01', 'paramB' => '02' }, 'hash3' => { 'paramB' => '03', 'paramA' => '00' } };

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1185442]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (3)
As of 2024-04-20 00:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found