Tie::CSV_File 0.21

Tie::CSV_File is a Perl module that represents a regular csv file as a Perl array of arrays. The first dimension of the represents the line-nr in the original file, the second dimension represents the col-nr. Both indices are starting with 0. You can also access with the normal array value, e.g. $data[-1][-1] stands for the last field in the last line, or @{$data[1]} stands for the columns of the second line.

SYNOPSIS

 use Tie::CSV_File;

 tie my @data, 'Tie::CSV_File', 'xyz.dat';
 print "Data in 3rd line, 5th column: ", $data[2][4];
 untie @data;
 
 # or to read a tabular, or a whitespace or a (semi-)colon separated file
 tie my @data, 'Tie::CSV_File', 'xyz.dat', TAB_SEPARATED;
 # or use instead COLON_SEPARATED, SEMICOLON_SEPARATED, PIPE_SEPARATED,
 # or even WHITESPACE_SEPARATED
 
 # or to read something own defined
 tie my @data, 'Tie::CSV_File', 'xyz.dat', sep_char => '|',
 sep_re => qr/\s*\|\s*/,
 quote_char => undef,
 eol => undef, # default
 escape_char => undef,
 always_quote => 0; # default
 
 $data[1][3] = 4;
 $data[-1][-1] = "last column in last line";
 
 $data[0] = [qw/Name Address Country Phone/];
 push @data, ["Gates", "Redmond", "Washington", "0800-EVIL"];
 push @data, ["Linus", "Helsinki", "Finnland", "0800-LINUX"];

 my @headings = @{ shift @data }; # removes also the first line
 my @last_row = @{ pop @data }; # removes also the last line

 @data = [ [1..3], [4..6], [7..9] ];
 # With default paramaters,
 # the following csv file is created:
 # 1,2,3
 # 4,5,6
 # 7,8,9


Product's homepage

Requirements:

· Perl