在Perl中创建循环数组

时间:2013-11-07 21:33:58

标签: perl csv

我正在尝试使用for循环创建一个包含一些数据的数组数组。下面代码中的regex命令帮助我收集我将放在其中的标量。据我所知,这是正确的,但是当我尝试将@output数组输出到CSV文件时,我收到一个“不能使用string()作为ARRAY引用,而”strict refs“正在使用中。”错误。这是因为我创建数组的方式还是我尝试将其写入文件的方式?

foreach my $row(@input){
    my @cmd = qx("command");
    foreach my $line(@cmd){
        if($line =~ /regex/){
            push(@output, ($sp_name, $sp_port, $sp_type, $sp_uid)); 
        }
    }
}

以下代码是我用来创建输出文件::

的代码
my $csv = Text::CSV->new()
    or die "Cannot use Text::CSV ($!)";
my $file = "output.csv";
open my $fh, '>', $file
    or die "Cannot open $file ($!)";
$csv->eol("\n");
foreach my $row (@output)
{
    $csv->print($fh, \@{$row})
        or die "Failed to write $file ($!)";
}
close $fh
    or die "Failed to close $file ($!)";

1 个答案:

答案 0 :(得分:5)

这会将四个标量推送到@output

push(@output, ($sp_name, $sp_port, $sp_type, $sp_uid)); 

圆括号除了无用地控制优先权外什么都不做。使用方括号:

push @output, [ $sp_name, $sp_port, $sp_type, $sp_uid ];

square brackets创建一个数组并返回对它的引用。