堆栈内存溢出
  繁体   English   中英

Perl：在for循环中输入的哈希，在循环外为空

[英]Perl: hash feeded in a for loop, is empty outside the loop

 原文  2015-11-27 20:40:03  0   2    arrays/ perl/ hash

问题描述

我很了解HASH功能。 通过“ for”循环，我可以动态创建哈希和“哈希名称”，并为它们提供一些键/值元素。 不幸的是，这些值在循环外部不再可见。 下面是我正在使用的小代码及其输出。 

#!/usr/bin/perl -w

use warnings;
use English;
use Data::Dumper;

@wA = ("a", "b", "c", "d", "e", "f");
@dA = (1, 2, 3, 4, 5, 6);

for (my $i=0; $i<=$#wA; $i++){
    $hn = "hash-$wA[$i]";
    push(@hna, $hn);
    %hn = ();
    #my %hn;
    $hsize = @hn;
    print "1. HashName: " . $hn . " Size: " . $hsize . "\n";
    print "HashName: $hn\n";
    if ($i == 0){
        print "Feed the hash $hn: ";
        for (my $j=$i; $j<=$#dA; $j++){
            $hn{ $dA[$j] } = $wA[$j];
            print "$dA[$j] => $wA[$j], ";
        }
        print "\n";
    }
    if ($i == 1){
        print "Feed the hash $hn: ";
        for (my $j=$i; $j<=$#dA; $j++){
            $hn{ $dA[$j] } = $wA[$j];
            print "$dA[$j] => $wA[$j], ";
        }
        print "\n";
    }
    if ($i == 2){
        print "Feed the hash $hn: ";
        for (my $j=$i; $j<=$#dA; $j++){
            $hn{ $dA[$j] } = $wA[$j];
            print "$dA[$j] => $wA[$j], ";
        }
        print "\n";
    }
    if ($i == 3){
        print "Feed the hash $hn: ";
        for (my $j=$i; $j<=$#dA; $j++){
            $hn{ $dA[$j] } = $wA[$j];
            print "$dA[$j] => $wA[$j], ";
        }
        print "\n";
    }
    if ($i == 4){
        print "Feed the hash $hn: ";
        for (my $j=$i; $j<=$#dA; $j++){
            $hn{ $dA[$j] } = $wA[$j];
            print "$dA[$j] => $wA[$j], ";
        }
        print "\n";
    }
    if ($i == 5){
        print "Feed the hash $hn: ";
        for (my $j=$i; $j<=$#dA; $j++){
            $hn{ $dA[$j] } = $wA[$j];
            print "$dA[$j] => $wA[$j], ";
        }
        print "\n";
    }
    if ($i == 6){
        print "Feed the hash $hn: ";
        for (my $j=$i; $j<=$#dA; $j++){
            $hn{ $dA[$j] } = $wA[$j];
            print "$dA[$j] => $wA[$j], ";
        }
        print "\n";
    }
    @hk = keys %hn;
    $hsize = @hk;
    print "2. HashName: " . $hn . " Size: " . $hsize . "\n";
}

print "\n";
print "Araay with hashNames: " . @hna . " Array length: " . $#hna . "\n";
print "\n\n\n";

print "Hash info out of the FOR loop\n";

for (my $k=0; $k<=$#hna; $k++){
    @hnaca = keys %{$hna[$k]};
    #@hnaca = keys @{ @hna[$k] };
    #@hnaca = keys \%{ $hna[$k] };
    #@hnaca = keys %{ $hna->[$k] };
    print "Element: " . $k . " HashName: " . $hna[$k] . " Size(\$#): " . $#hnaca . " Size(\@): " . @hnaca . "\n";
}

输出如下： 

1. HashName: hash-a Size: 0
HashName: hash-a
Feed the hash hash-a: 1 => a, 2 => b, 3 => c, 4 => d, 5 => e, 6 => f, 
2. HashName: hash-a Size: 6
Data::Dumper: 1. HashName: hash-b Size: 0
HashName: hash-b
Feed the hash hash-b: 2 => b, 3 => c, 4 => d, 5 => e, 6 => f, 
2. HashName: hash-b Size: 5
Data::Dumper: 1. HashName: hash-c Size: 0
HashName: hash-c
Feed the hash hash-c: 3 => c, 4 => d, 5 => e, 6 => f, 
2. HashName: hash-c Size: 4
Data::Dumper: 1. HashName: hash-d Size: 0
HashName: hash-d
Feed the hash hash-d: 4 => d, 5 => e, 6 => f, 
2. HashName: hash-d Size: 3
Data::Dumper: 1. HashName: hash-e Size: 0
HashName: hash-e
Feed the hash hash-e: 5 => e, 6 => f, 
2. HashName: hash-e Size: 2
Data::Dumper: 1. HashName: hash-f Size: 0
HashName: hash-f
Feed the hash hash-f: 6 => f, 
2. HashName: hash-f Size: 1
Data::Dumper: 
Araay with hashNames: 6 Array length: 5



Hash info out of the FOR loop
Element: 0 HashName: hash-a Size($#): -1 Size(@): 0 -> expected 5 / 6
Element: 1 HashName: hash-b Size($#): -1 Size(@): 0 -> expected 4 / 5
Element: 2 HashName: hash-c Size($#): -1 Size(@): 0 -> expected 3 / 4
Element: 3 HashName: hash-d Size($#): -1 Size(@): 0 -> expected 2 / 3
Element: 4 HashName: hash-e Size($#): -1 Size(@): 0 -> expected 1 / 2
Element: 5 HashName: hash-f Size($#): -1 Size(@): 0 -> expected 0 / 1

如何获得期望值？

2 个解决方案

解决方案1
 2  2015-11-28 03:33:40

奇怪的是，这是您所追求的吗？： 

use warnings;
use strict;

my @wA = qw(a b c d e f);
my @dA = qw(1 2 3 4 5 6);

my %hash;

for my $w (@wA){
    $hash{$w} = shift @dA;
}

...或使用迭代器（在Perl中很少需要迭代器）。 注意使用的..又名。 触发器运算符或正式的范围运算符： 

for my $i (0..$#wA){
    $hash{$wA[$i]} = $dA[$i];
}

...或者甚至更简洁一些（没有明确定义的迭代器）： 

for (0..$#wA){
    $hash{$wA[$_]} = $dA[$_];
}

...最后，您甚至可以得到这个结果（只要您预先检查了每个数组的长度）： 

for (@wA){
    $hash{$_} = shift @dA; # requires array length checks
}

...一个（由我忽略的@Borodin建议），一个切片 ： 

@hash{@wa} = @dA

然后，在上述所有情况下，请使用Dumper ，或： 

for my $key (keys %hash){
    print "$key: $hash{$key}\n";
}

解决方案2
 1 已采纳  2015-11-27 20:54:59

程序的问题在于您根本没有保存哈希。 push(@hna, $hn); 将哈希的名称作为字符串推送到@hna 。 这是您保存您的以外唯一可变for 。

如果同时保存名称和在@hna创建的哈希， @hna如下所示： push(@hna, {name => $hn, hash => \\%hn}); 您将获得更大的成功。 

 @@ -9,9 +9,7 @@ use Data::Dumper;

  for (my $i=0; $i<=$#wA; $i++){
      $hn = "hash-$wA[$i]";
 -    push(@hna, $hn);
 -    %hn = ();
 -    #my %hn;
 +    my %hn = ();
      $hsize = @hn;
      print "1. HashName: " . $hn . " Size: " . $hsize . "\n";
      print "HashName: $hn\n";
 @@ -73,6 +71,7 @@ for (my $i=0; $i<=$#wA; $i++){
      }
      @hk = keys %hn;
      $hsize = @hk;
 +    push(@hna, {name => $hn, hash => \%hn});
      print "2. HashName: " . $hn . " Size: " . $hsize . "\n";
  }

 @@ -83,9 +82,9 @@ print "\n\n\n";
  print "Hash info out of the FOR loop\n";

  for (my $k=0; $k<=$#hna; $k++){
 -    @hnaca = keys %{$hna[$k]};
 +    @hnaca = keys %{$hna[$k]->{"hash"}};
      #@hnaca = keys @{ @hna[$k] };
      #@hnaca = keys \%{ $hna[$k] };
      #@hnaca = keys %{ $hna->[$k] };
 -    print "Element: " . $k . " HashName: " . $hna[$k] . " Size(\$#): " . $#hnaca . " Size(\@): " . @hnaca . "\n";
 +    print "Element: " . $k . " HashName: " . $hna[$k]->{"name"} . " Size(\$#): " . $#hnaca . " Size(\@): " . @hnaca . "\n";
  }

这给出了完整的程序，对我有用： 

 #!/usr/bin/perl -w

 use warnings;
 use English;
 use Data::Dumper;

 @wA = ("a", "b", "c", "d", "e", "f");
 @dA = (1, 2, 3, 4, 5, 6);

 for (my $i=0; $i<=$#wA; $i++){
     $hn = "hash-$wA[$i]";
     my %hn = ();
     $hsize = @hn;
     print "1. HashName: " . $hn . " Size: " . $hsize . "\n";
     print "HashName: $hn\n";
     if ($i == 0){
         print "Feed the hash $hn: ";
         for (my $j=$i; $j<=$#dA; $j++){
             $hn{ $dA[$j] } = $wA[$j];
             print "$dA[$j] => $wA[$j], ";
         }
         print "\n";
     }
     if ($i == 1){
         print "Feed the hash $hn: ";
         for (my $j=$i; $j<=$#dA; $j++){
             $hn{ $dA[$j] } = $wA[$j];
             print "$dA[$j] => $wA[$j], ";
         }
         print "\n";
     }
     if ($i == 2){
         print "Feed the hash $hn: ";
         for (my $j=$i; $j<=$#dA; $j++){
             $hn{ $dA[$j] } = $wA[$j];
             print "$dA[$j] => $wA[$j], ";
         }
         print "\n";
     }
     if ($i == 3){
         print "Feed the hash $hn: ";
         for (my $j=$i; $j<=$#dA; $j++){
             $hn{ $dA[$j] } = $wA[$j];
             print "$dA[$j] => $wA[$j], ";
         }
         print "\n";
     }
     if ($i == 4){
         print "Feed the hash $hn: ";
         for (my $j=$i; $j<=$#dA; $j++){
             $hn{ $dA[$j] } = $wA[$j];
             print "$dA[$j] => $wA[$j], ";
         }
         print "\n";
     }
     if ($i == 5){
         print "Feed the hash $hn: ";
         for (my $j=$i; $j<=$#dA; $j++){
             $hn{ $dA[$j] } = $wA[$j];
             print "$dA[$j] => $wA[$j], ";
         }
         print "\n";
     }
     if ($i == 6){
         print "Feed the hash $hn: ";
         for (my $j=$i; $j<=$#dA; $j++){
             $hn{ $dA[$j] } = $wA[$j];
             print "$dA[$j] => $wA[$j], ";
         }
         print "\n";
     }
     @hk = keys %hn;
     $hsize = @hk;
     push(@hna, {name => $hn, hash => \%hn});
     print "2. HashName: " . $hn . " Size: " . $hsize . "\n";
 }

 print "\n";
 print "Araay with hashNames: " . @hna . " Array length: " . $#hna . "\n";
 print "\n\n\n";

 print "Hash info out of the FOR loop\n";

 for (my $k=0; $k<=$#hna; $k++){
     @hnaca = keys %{$hna[$k]->{"hash"}};
     #@hnaca = keys @{ @hna[$k] };
     #@hnaca = keys \%{ $hna[$k] };
     #@hnaca = keys %{ $hna->[$k] };
     print "Element: " . $k . " HashName: " . $hna[$k]->{"name"} . " Size(\$#): " . $#hnaca . " Size(\@): " . @hnaca . "\n";
 }

暂无
暂无

声明:本站的技术帖子网页，遵循CC BY-SA 4.0协议，如果您需要转载，请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

相关问题 Perl遍历数组哈希 Bash：for循环外的数组为空 在 Perl 中循环遍历数组的多维哈希 Perl：使用循环创建 hash 文件 无法在bash循环外读取哈希数组 Array.toString 在循环外返回空 转换为UIImage的PFFile数组在for循环外是空的 PHP-数组在foreach循环外变空 即使在perl的while循环中声明了数组，也无法访问数组 perl while循环中的空数组应具有输入
相关标签
 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM