Question

I am using the following code for reading the last line of a csv file. How do I split the line received into an array?

use warnings;
use Tie::File;

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

Answer 1

See Text::CSV.

use Text::CSV;

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

Using $file[-1] assumes there are no newlines in your fields.