perl - perl での csv ファイルの解析

Question

csv ファイルの最後の行を読み取るために、次のコードを使用しています。受信した行を配列に分割するにはどうすればよいですか?

use warnings;
use Tie::File;

tie my @file, 'Tie::File', 'server1-20130205.csv', mode=>O_RDONLY or die $!;
print $file[-1];

score 2 · Accepted Answer

Text::CSVを参照してください。

use Text::CSV;

my $csv    = Text::CSV->new;
my $status = $csv->parse($file[-1]);
my @fields = $csv->fields;

使用$file[-1]は、フィールドに改行がないことを前提としています。

score 2 · Accepted Answer

2

CPAN モジュールについて: Text::CSV

于 2013-02-06T12:06:07.127 に答える

score 0 · Accepted Answer

を使用する必要がありますsplit。フィールド区切り文字がコンマであると仮定すると、次のようにします。

my $data = split /,/, $file[-1];

3 に答える 3