我有以下输入数据
Country1:operator1
Country1:operator2
Country1:operator3
Country2:operator1
Country2:operator2
Country2:operator3
我想将此数据插入哈希%INFO
中,以使每个键都对应一个“运算符”数组,因此我可以按以下方式进行迭代
foreach $i ( keys %INFO ) {
foreach $operator ( $INFO{$i} ) {
print " $i ---> $operator \n";
}
}
这是我自己的解决方案,无法正常工作
open($fh, "$info_file");
while (my $row = <$fh>) {
chomp $row;
@tokens = split(":",$row);
$name = $tokens[0];
$operator = $tokens[2];
if ($name =~ /^[A-Z]/) {
if ( exists $INFO{$name} ) {
$ptr = \$INFO{$name};
push(@ptr, $operator);
}
else {
@array = ( "$operator" );
$INFO{$name} = [ @array ];
}
}
}
close($f);
答案 0 :(得分:3)
恐怕您的工作过于复杂了。
open my $fh, '<', $info_file or die "Can't open '$info_file': $!";
my %info;
while (<$fh>) {
next unless /^[A-Z]/;
chomp;
my ($name, $operator) = split /:/;
push @{ $info{$name} }, $operator;
}
并访问它:
foreach my $i (keys %info) {
foreach my $op (@{ $info{$i} }) {
say "$i ----> $op";
}
}
如果您将哈希值当作数组引用一样对待,那么Perl会将其作为数组引用。
有关更多详细信息,请参见Perl Data Structures Cookbook。
答案 1 :(得分:2)
好的,此代码首先存在很多错误,使用open的三种输入形式,默认情况下不引用变量,Perl知道什么时候应该使用字符串。因此open($fh,"$info_file");
应该是open($fh, '<', $info_file);
默认情况下,第二个拆分不会返回分隔符,因此$operator = $tokens[2];
应该为$operator = $tokens[1];
第三,为什么您忽略文件中不是以A到Z开头的国家?
第四次使用自动激活,因此整个if else
块都可以替换为push @{$INFO{$name}}, $operator
第五个$ptr
和@ptr
是单独的变量,将数组ref分配给$ptr
不会使其在@ptr
中可用,而且\$INFO{$name}
也在引用$INFO{$name}
是什么,在您的情况下,它已经是数组引用,因此您在$ptr
中获得了对数组引用的引用,如果您保留此代码,则应该写成$ptr = $INFO{$name};
第六次分配给@array是多余的,else子句中的两行应该已经写成$INFO{$name} = [ $operator ];
有了所有这些更改,您就会得到
open($fh, '<', "$info_file");
while (my $row = <$fh>) {
chomp $row;
my @tokens = split(":",$row);
$name = $tokens[0];
$operator = $tokens[1];
if ($name =~ /^[A-Z]/) {
push @{$INFO{$name}}, $operator;
}
}
close($f);
答案 2 :(得分:1)
您非常亲密,但是无需显式使用引用或将哈希值初始化为空数组
这就是您所需要的
use strict;
use warnings 'all';
open my $fh, '<', $info_file or die $!;
my %info;
while ( <$fh> ) {
chomp;
my ($name, $operator) = split /:/;
push @{ $info{$name} }, $operator if $name =~ /^[A-Z]/;
}