解析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

見Text::CSV。

use Text::CSV; 

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

使用$file[-1]假設您的字段中沒有換行符。

Answer 2

您必須使用split。假設你的領域分隔符是一個逗號，像這樣做：

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

Answer 3

關於什麼的CPAN模塊：文字:: CSV