如何在foreach循环内修改Perl数组中的元素？

Question

我对这段代码的目标是清理一系列元素（一个URL列表，一些带有特殊字符，如% ），这样我最终可以将它与另一个URL的文件进行比较，并输出哪些匹配。 URL的列表来自.csv文件，第一个字段是我想要的URL（我使用快速if()语句跳过了一些其他条目）。

foreach my $var(@input_1) {
    #Skip anything that doesn't start with http:
    if ((/^[#U]/ ) || !(/^h/)) {
        next;
    }
    #Split the .csv into the relevant field:
    my @fields = split /\s?\|\s?/, $_;
    $var = uri_unescape($fields[0]);
}

我的分隔符是| 在csv。 在其当前设置中，以及当我将$_更改为$var ，它只返回空行。 当我在循环开始时删除$var声明并使用$_ ，它将以正确的格式输出URL。 但在这种情况下，如何将输出分配给数组中的同一元素？ 这需要第二个数组输出值吗？

我对perl比较陌生，所以我确信有一些我不知道的东西。 我现在不知道为什么在foreach声明中删除$var会破坏@fields行的解析，但删除它并使用$_则不行。 阅读perlsyn文档并没有像我希望的那样多。 任何帮助赞赏！

Answer 1

/^h/没有绑定任何东西，所以匹配发生在$_ 。 如果要匹配$var ，则必须绑定它：

if ($var =~ /^[#U]/ || $var !~ /^h/) {

使用|| 有两个匹配可能会合并到一个正则表达式与替代：

next if $var =~ /^(?: [#U] | [^h] | $ )/x;

即该行必须以# ， U开头，除了h其他内容，或者为空。

您可以使用push来填充包含结果的新数组：

push @results, $var;

另请注意，如果您的数据可以包含| 引用或转义（或换行等），您应该使用Text :: CSV而不是split 。