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

Answer 1

CPAN 模块是什么：Text::CSV

Answer 2

请参阅文本::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];