在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];

Answer 1

关于CPAN模块的内容：Text :: CSV

Answer 2

请参阅Text::CSV。

use Text::CSV;

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

使用$file[-1]假设您的字段中没有换行符。

Answer 3

您必须使用split。假设您的字段分隔符是逗号，请执行以下操作：

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