The following should work for you:
#!/usr/bin/perl
use strict;
use warnings;
sub printHT {
my $T = shift;
foreach (keys (%$T)) {
print "$_ = $T->{$_}\n"; # to get Key = Value
print "$T->{$_}\n"; to just get the value
}
}
my %ht_state=(AL => "Alabama", AK => "Alaska");
printHT(\%ht_state);
On Sep 21, 3:55 am, [EMAIL PROTECTED] (Santana) wrote:
> Hei all,
> hoe a print a hashtable elements in a function that receives the
> reference of
> this hastable ???
>
> In this example this foreach loop in "printHT" function dont work ,
> how is missed ?
>
> #!/usr/bin/perl
> use strict;
> use warnings;
>
> sub printHT($)
> {
> my $T =$_[0];
>
> foreach my $id (keys (%$T)){ #This dont work :)
>
> print $$T{$id} . "\n";
> }
>
> }
>
> my %ht_state=("AL" => "Alabama","AK" => "Alaska");
> &printHT(\%ht_state);
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
