论坛 › Perl › Perl 关联数组

_winds 发表于 2017-5-17 07:41:42

Perl 关联数组

#!perl
use strict;
use warnings;
my $array = {
"A" =>,
"B" =>,
"C" =>
};
foreach my $key(keys %$array) {
my $value = $array->{$key};
if(defined($value)) {
foreach my $value(@$value) {
print "$value "
}
}
print "\n";
}

查看完整版本: Perl 关联数组