TestHashStruct for windows Perl
#!/usr/perl/bin/perl#open(FHD, "c:\\test\\test.txt") || die("cna't open the file\n");
my %hash;
$hash{1} = {name=> 'mm1', age=> 18, sex=>'female'};
$hash{2} = {name=> 'mm2',age=> 19,sex=>'female'};
my %info_of_mm_3 = (name=> 'mm3', age => 20,sex => 'female');
$hash{3} = {%info_of_mm_3};
while( my ($key, $value) = each %hash )
{
print "key : $key\n";
my $name = $hash{$key}{name};
my $age = $hash{$key}{age};
my $sex = $hash{$key}{sex};
print "$name , $age, $sex \n";
}
#close(FHD);
页:
[1]