如何在 Perl 中传递参数而不改变数据

Question

我有一个无法解决的奇怪问题。你能看看我做错了什么吗？我正在尝试使用 XML::LibXML 在 Perl 中构建 XML。在我开始构建子例程并传递参数之前，一切正常。

首先是有效的代码

 my $root = $doc->createElement("XML_FILE");
 my @sortedOuterTags = qw ( JMS_VERSION
                       FILE_NAME
                       SUBMIT_BY
                       SUBMIT_DATE
                      );

# Use hash slice to access the list in hash elements
# Remember has elements are accessed randomly, hence hash slice-ing

 my %outHashTags;
 @outHashTags { @sortedOuterTags } = ( 'data1',
                                'data2',
                                'data3',
                                'data3');

for my $name (@sortedOuterTags) {
    my $outTag = $doc->createElement($name);
    my $outValue = $outHashTags{$name};
    $outTag->appendTextNode($outValue);
    $root->appendChild($outTag);
}

构建输出：

<JMS_VERSION>data1</JMS_VERSION>

<FILE_NAME>data2</FILE_NAME>

<SUBMIT_BY>data3</SUBMIT_BY>

<SUBMIT_DATE>data4</SUBMIT_DATE>

现在的错误：

如下所示，一旦我将 for 循环分拆到子例程，就会出现错误。我正在传递 3 个参数。 1) 无法获取storedReportTag 的数组值 2) 无法获取 %reportHashTag 数据 3) $report 元素为空

代码：

buildXMLElements(\@sortedReportTag, %reportHashTags, $report);

sub buildXMLElements() {
    my( @elementTags, %hashTags, $parentElement) = @_;

    for my $name (@elementTags) {
        my $reportTag = $doc->createElement($name);
        my $reportValue = $hashTags{$name};
        $reportTag->appendTextNode($reportValue);
        $parentElement->appendChild($reportTag);
    }
}

我想放入 sub 因为我有几个标签要构建以重用代码。我尝试直接传递参数和作为参考......

谢谢

更新：

编辑我的 Sub 后，它现在看起来像这样：

buildXMLElements(\@sortedReportTag, \%reportHashTags, $report);

sub buildXMLElements() {
    my($elementTags, $hashTags, $parentElement) = @_;
    for my $name (@$elementTags) {
        my $reportTag = $doc->createElement($name);
        my $reportValue = $hashTags->[$name];
        $reportTag->appendTextNode($reportValue);
        $parentElement->appendChild($reportTag);
    }
}

它死在这条线上：

my $reportValue = $hashTags->[$name];

最终更新：

在 Jim 的帮助下，我更正了代码：这是可以使用的最终版本

buildXMLElements(\@sortedReportTag, \%reportHashTags, $report);

sub buildXMLElements() {
    my($elementTags, $hashTags, $parentElement) = @_;
        for my $name (@$elementTags) {
        my $reportTag = $doc->createElement($name);
        my $reportValue = $hashTags->{$name};
        $reportTag->appendTextNode($reportValue);
        $parentElement->appendChild($reportTag);
    }
}

Answer 1

buildXMLElements(\@sortedReportTag, %reportHashTags, $report);
...
sub buildXMLElements() {
  my( @elementTags, %hashTags, $parentElement) = @_;

你不能那样做。 @_ 的全部内容将分配给@elementTags。要将数组或散列传递给子例程，您必须传递一个引用。试试吧

buildXMLElements(\@sortedReportTag, \%reportHashTags, $report);
...
sub buildXMLElements() {
  my( $elementTags, $hashTags, $parentElement) = @_;

现在，在子例程中$elementTags 是一个数组引用，$hashTags 是一个哈希引用。要引用elementTags 的元素，请使用$elementTags->[$i]，或者要引用整个数组，请使用@$elementTags。 同样，对于reportHashTags 键查找使用$hashTags->[$key]，或者对于整个哈希使用%$hashTags。