цикл foreach для хеш массива в perl
Posted in Новости on 25 января, 2013 by admin
foreach $key (keys %hash) {
print "Key - $key\n";
print "Hash for key $key - $hash{$key}\n";
}
foreach $key (keys %hash) {
print "Key - $key\n";
print "Hash for key $key - $hash{$key}\n";
}
my @EMAILS = ('1','2');
my @TOKENS = ('a','b');
my %hash;
@hash{@EMAILS} = @TOKENS;