Getting columns from csv file in perl

pnsreee has asked for the wisdom of the Perl Monks concerning the following question:

Hi All, <p. How can i get columns from cvs file into an array. The CSV file is a dynamic file.

the fields are like this

Numb,Name,Class,Type,......
201,Bazaar,b2,53,..........
121,Raymond,y1,02,...
232,Robert,p1,04,...............
[download]

I am using following code to get columns.

@tmp = `more +2 flat1.txt | cut -d "," -f $i` ;
[download]

It is giving out put and also error saying that refer help. Can any one give me equivalent to this

Edit: g0n - formatting tags

Comment on Getting columns from csv file in perl Select or Download Code

Replies are listed 'Best First'.
Re: Getting columns from cvs file in perl by Fletch (Bishop) on Apr 24, 2007 at 13:37 UTC
CPAN is your friend: Text::CSV_XS	[reply]
Re^2: Getting columns from cvs file in perl by thezip (Vicar) on Apr 24, 2007 at 13:45 UTC
You should also check the returned status when you parse a line: `my $csv = Text::CSV_XS->new( { binary => 1 } ); my $status = $csv->parse($line); # parse a CSV string into fie +lds` [download] Occasionally, you'll encounter an invalid CSV line and you'll definitely want to handle it. If there are any embedded binary chars, you'll want to set the binary flag when you create the $csv object as I did above. Where do you want them* to go today?*	[reply] [d/l]
Re: Getting columns from cvs file in perl by Joost (Canon) on Apr 24, 2007 at 13:38 UTC
That doesn't look like a CVS file. It looks like a CSV file. I recommend Text::xSV or Text::CSV_XS. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.