NAME
Text::CSV::Simple - Simpler parsing of CSV files
SYNOPSIS
my $parser = Text::CSV::Simple->new;
my @data = $parser->read_file($datafile);
print @$_ foreach @data;
# Only want certain fields?
my $parser = Text::CSV::Simple->new;
$parser->want_fields(1, 2, 4, 8);
my @data = $parser->read_file($datafile);
# Map the fields to a hash?
my $parser = Text::CSV::Simple->new;
$parser->field_map(qw/id name null town/);
my @data = $parser->read_file($datafile);DESCRIPTION
Parsing CSV files is nasty. It seems so simple, but it usually isn't. Thankfully Text::CSV_XS takes care of most of that nastiness for us.
Like many modules which have to deal with all manner of nastiness and edge cases, however, it can be clumsy to work with in the simple case.
Thus this module.
We simply provide a little wrapper around Text::CSV_XS to streamline the common case scenario. (Or at least my common case scenario; feel free to write your own wrapper if this one doesn't do what you want).
METHODS
new
my $parser = Text::CSV::Simple->new(\%options);Construct a new parser. This takes all the same options as Text::CSV_XS.
read_file
my @data = $parser->read_file($filename);Read the data in the given file, parse it, and return it as a list of data.
Each entry in the returned list will be a listref of parsed CSV data.
want_fields
$parser->want_fields(1, 2, 4, 8);If you only want to extract certain fields from the CSV, you can set up the list of fields you want, and, hey presto, those are the only ones that will be returned in each listref. The fields, as with Perl arrays, are zero based (i.e. the above example returns the second, third, fifth and ninth entries for each line)
field_map
$parser->field_map(qw/id name null town null postcode/);Rather than getting back a listref for each entry in your CSV file, you often want a hash of data with meaningful names. If you set up a field_map giving the name you'd like for each field, then we do the right thing for you! Fields named 'null' vanish into the ether.
Error Handling
Currenly, for each line that we can't parse, we emit a warning, and move on. If this isn't what you want, feel free to subclass and override _failed().
AUTHOR
Tony Bowden, <cpan@tmtm.com>
SEE ALSO
Text::CSV_XS
COPYRIGHT
Copyright (C) 2004 Tony Bowden. All rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself