Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Hashes & Arrays

by Joost (Canon)
on Aug 29, 2005 at 19:56 UTC ( [id://487530]=note: print w/replies, xml ) Need Help??


in reply to Hashes & Arrays

The perldata and perlreftut manpages should explain the basics. If you have a standard perl install, you can read those by typing man perldata or perldoc perldata - see the perl manpage for an index of all the standard documentation.

Anyway, I'd do it something like this:

my %hash = ( # declare top-level hash key => [] # create new empty arrayref with key "key" ); # create a new anonymous hashref with the data and # push it onto the array push @{$hash{key}}, { email => 'email@address', timestamp => time }; # that will allow you to get at the first email address # with the following code: my $email = $hash{key}[0]{email};

If you want to access by your given example ($hash{key}{array}[0]{email}) you need an extra hash:

my %hash = ( key => { array => [] } ); push @{$hash{key}{array}}, { email => 'email@address', timestamp => time };
updated: fixed bug that ikegami found.

Replies are listed 'Best First'.
Re^2: Hashes & Arrays
by ikegami (Patriarch) on Aug 29, 2005 at 20:04 UTC
    Bug: "email@address" should be 'email@address' or "email\@address", otherwise @address will get interpolated. Under strict vars, this won't even compile.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (2)
As of 2024-04-19 21:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found