Как распечатать все значения массива в Perl

Я пытаюсь выполнить печать всех значений массива из CSV-файла. Я как бы вручную делаю это в приведенном ниже примере. Может кто-то показать мне код для этого для всех полей массива независимо от того, сколько полей есть? Я просто пытаюсь напечатать каждое поле в новой строке.

#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV_XS;

my $file = 'test.csv';

my $csv = Text::CSV_XS->new ({
    quote_char          => '"',
    escape_char         => '@',
    binary              => 1,
    keep_meta_info      => 0,
    allow_loose_quotes  => 1,
    allow_whitespace    => 1,
});


open (CSV, "<", $file) or die $!;

while (<CSV>) {
    if ($csv->parse($_)) {
        my @columns = $csv->fields();
        print "$columns[0]rn";
        print "$columns[1]rn";
        print "$columns[2]rn";
        print "$columns[3]rn";
        print "$columns[4]rn";
        print "$columns[5]rn";
        print "$columns[6]rn";
        print "$columns[7]rn";
    }
    else {
        my $err = $csv->error_input;
        print "Failed to parse line: $err";
    }
}
close CSV;
7
csv perl

5 ответов

foreach(@columns)
{
    print "$_\r\n";
}

вместо всех столбцов[number].

12

для целей отладки, Data::Dump - мое оружие выбора. Он в основном довольно-печатает структуры данных.

use strict;
use warnings;
use Data::Dump 'dump';

# Do some stuff....

dump @array;     # Unlike Data::Dumper, there's no need to backslash ('\@array')
dump %hash;      # Same goes for hashes
dump $arrayref;  
dump $hashref;   # References handled just as well

есть много других способов печати массивов, конечно:

say foreach @columns;           # If you have Perl 5.10+
print $_,"\n" foreach @columns; # If you don't

print "@columns";               # Prints all elements, space-separated by default

"лучший" ответ зависит от ситуации. Зачем она тебе? С чем вы работаете? И зачем он тебе? Затем приправьте код соответствующим образом.

8

если вы просто хотите печатать элементы, разделенные пробелами:

print @columns;

если вы хотите быть немного больше фантазии, вы можете использовать join:

print join("\n", @columns);

Если вам нужно сделать что-то еще, повторите это:

foreach (@columns) {
    # do stuff with $_
}
6

Если вы делаете это для диагностических целей (в отличие от презентации), вы можете рассмотреть Data:: Dumper. В любом случае это хороший инструмент, чтобы знать, если вы хотите быструю распечатку более или менее произвольных данных.

1
{ $"="\n"; print $fh "@files"; }
1