这个Perl代码将哈希值推送到数组上有什么问题？

Question

我正在尝试制作一系列哈希。 这是我的代码。 $ 1，$ 2等与正则表达式匹配，我检查过它们是否存在。

更新：修复了我的初始问题，但现在我遇到的问题是，当我将项目推到它上时，我的数组不会超过1的大小......

更新2：这是一个范围问题，因为需要在循环外声明@ACL。 感谢大家！

while (<>) {
    chomp;
    my @ACLs = ();

    #Accept ACLs
    if($_ =~ /access-list\s+\d+\s+(deny|permit)\s+(ip|udp|tcp|icmp)\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})(\s+eq (\d+))?/i){

        my %rule = (
            action => $1, 
            protocol => $2, 
            srcip => $3, 
            srcmask => $4, 
            destip => $5, 
            destmask => $6, 
        );
        if($8){
            $rule{"port"} = $8;
        }
        push @ACLs, \%rule;
        print "Got an ACL rule.  Current number of rules:" . @ACLs . "\n";

哈希数组似乎没有变得更大。

Answer 1

你正在推动$rule ，这是不存在的。 您打算推送对%rule的引用：

push @ACLs, \%rule;

始终use strict; use warnings;的程序启动您的程序use strict; use warnings; use strict; use warnings; 。 这会阻止你试图推动$rule 。

更新：在Perl中，数组只能包含标量。 构造复杂数据结构的方式是通过一个哈希引用数组。 例：

my %hash0 = ( key0 => 1, key1 => 2 );
my %hash1 = ( key0 => 3, key1 => 4 );
my @array_of_hashes = ( \%hash0, \%hash1 );
# or: = ( { key0 => 1, key1 => 2 }, { key0 => 3, key1 => 4 ] );

print $array_of_hashes[0]{key1}; # prints 2
print $array_of_hashes[1]{key0}; # prints 3

请阅读Perl Data Structures Cookbook 。

Answer 2

my %rule = [...]

push @ACLs, $rule;

这两行指的是两个独立的变量：散列和标量。 她们不一样。

这取决于你正在做什么，但有两种解决方案：

push @ACLs, \%rule;

会将引用推送到数组中。

push @ACLs, %rule;

将各个值（如$key1 ， $value1 ， $key2 ， $value2 ......）推入数组中。

Answer 3

你每次@ACLs通过循环清除@ACLs 。 你的my错了。