0

我有一个 setter 子程序setAssignmentStatus，它接受一个哈希数组（从这里开始的AoH）和另一个参数（不要关心这个，因为这部分有效），并通过 AoH 进行迭代以在每个哈希元素中设置另一个条目。它不会返回任何内容，因为我想在通过 setter sub 拉出后使用带有添加条目的相同 AoH 对象，而不是构造一个全新的 AoH 并重新填充条目。这是二传手：

sub setAssignmentStatus
{
    my $fileFlatArySclr = $_[0];
    my $cfgFile = $_[1];

    #here I convert the AoH from the scalar necessary for the sub to its native form
    my @fileFlatAry = @$fileFlatArySclr;

    #this works, don't worry
    my %cfgVarHash = getConfigVars($cfgFile);

    foreach my $fileVarHashSclr(@fileFlatAry)
    {
        #convert each AoH entry from scalar necessary for iteration to native hash
        my %varHash = %$fileVarHashSclr;

        my $varName = $varHash{'VAR_NAME'};

        my $asgnLineCnt = $varHash{'ASGN_CNT'};

        my $asgnSts;
        my $fileAsgnSts; 
        my $cfgAsgnSts; 

        if($asgnLineCnt > 0) { $fileAsgnSts = 1; } else { $fileAsgnSts = 0; }

        my $cfgAsgnLine = $cfgVarHash{$varName};

        if($cfgAsgnLine ne undef) { $cfgAsgnSts = 1; } else { $cfgAsgnSts = 0; }

        $asgnSts = $fileAsgnSts.$cfgAsgnSts;

        #debug to make sure $asgnSts is not null in the first place (it is not!)
        print "\n*** setting ASGN_STUS of ".$varName." to ".$asgnSts;

        #Here we set ASGN_STUS for every iteration
        $varHash{'ASGN_STUS'} = $asgnSts;
    }
}

它被称为如下：

setAssignmentStatus(\@fileFlatAry, $cfgFile);

但是，在@fileFlatAry通过 发送 AoH后setAssignmentStatus，每个元素哈希不包含 ASGN_STUS 条目。为什么会这样，我该如何解决？

我的怀疑是我对修饰符做错了\，这就是我如何将数据结构作为标量参数传递给 sub 但我不确定。

4

1 回答 1

3

您修改%varHash而不是修改引用的哈希。停止将所有内容复制到局部变量中并修改局部变量。

$varHash{'ASGN_STUS'} = ...;

应该

$fileVarHashSclr->{'ASGN_STUS'} = ...;

我也不会my @fileFlatAry = @$fileFlatArySclr;。纯废物。

于 2013-02-02T00:32:07.037 回答