Question

我可以在foreach循环中引用组吗？我的代码有效：

@SEP_line=grep(/,\s(SEP[A-F0-9]*),\s(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}),\s(\+\d+),\s.*,\s(\w+)\n$/, @lines);

foreach (@SEP_line)
{
    /,\s(SEP[A-F0-9]*),\s(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}),\s(\+\d+),\s.*,\s(\w+)\n$/;

    print $1.",".$2.",".$3.",".$4."\n";
}

由于我已经在@SEP_line定义中指定了匹配正则表达式，我做了类似的事情：

@SEP_line=grep(/,\s(SEP[A-F0-9]*),\s(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}),\s(\+\d+),\s.*,\s(\w+)\n$/, @lines);

foreach (@SEP_line)
{
    print @SEP_line[$1].",".@SEP_line[$2].",".@SEP_line[$3]."\n";
}

这不起作用。提前致谢

Answer 1

为什么要循环两次（grep，foreach）？你可以在一个循环中完成所有这些：

foreach my $line (@lines)
{
    if ($line =~ /,\s(SEP[A-F0-9]*),\s(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}),\s(\+\d+),\s.*,\s(\w+)\n$/)
    {
        print "$1,$2,$3,$4\n";
    }
}

Answer 2

不要手工解析并手工生成CSV！使用CSV解析器更简单，更清晰。

use Text::CSV_XS qw( );

my $fh_in  = ...;
my $fh_out = \*STDOUT;

my $csv_in  = Text::CSV_XS->new({ binary => 1, auto_diag => 2, sep => ', ' });
my $csv_out = Text::CSV_XS->new({ binary => 1, auto_diag => 2 });

while ( my $row = $csv_in->getline($fh_in) ) {
    $csv_out->say($fh_out, [ @$row[-4,-3,-2,-1] ]
       if $row->[-4] =~ /^SEP[A-F0-9]*\z/
       && $row->[-3] =~ /^\d{1,3}(?:\.\d{1,3}){3}\z/
       && $row->[-2] =~ /^\+\d+\z/
       && $row->[-1] =~ /^\w+\z/;
}

perl：引用foreach循环中的组

2 个答案: