The concept is that the hash keys in this case are array references and hence they need to be treated accordingly, "@{$people{$person}}", this is visible by using the Data::Dumper module ...Here is my take at your post
#!/usr/local/bin/perl use strict; use warnings; my %people; my @sentences = ("here i am","i am me"); $people{me}[0] = 0; $people{me}[1] = "1985"; $people{me}[2] = "@sentences"; #interpolating... @sentences = ("there she is"); $people{friend}[0] = 1; $people{friend}[1] = "1984"; $people{friend}[2] = "@sentences"; foreach my $person (keys %people){ #each key references an anonymo +us array. my $rowId = $people{$person}->[0]; my $DOB = $people{$person}->[1]; my $sentence = $people{$person}->[2]; addDOBToDatabase($rowId, $DOB); addSentenceToDatabase($rowId, $sentence); } sub addDOBToDatabase{ my @args = @_; print "ID:$args[0], DOB:$args[1]\n"; } sub addSentenceToDatabase{ my @args = @_; print "ID::$args[0], Sentence: $args[1]\n"; } #Viewing data structures can help make decisions on the looping strate +gy... use Data::Dumper; print "\n\UViewing the Data Structure through Data::Dumper:\E\n"; print Dumper(\%people);
Finally, here is a bunch of links that were very useful to me at clarifying the concept of references, perlref, References quick reference, Referencing in advanced data structures, perldsc and I don't understand hash references...
Updated:Added links
In reply to Re: Help with Hash or Arrays
by biohisham
in thread Help with Hash or Arrays
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |