插入和遍历数组的哈希

时间:2018-08-01 10:47:00

标签: perl perl-hash

我有以下输入数据

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);

3 个答案:

答案 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]/;
}