while(<$in>){ $csv->parse( $_ ) or warn "Bad data: $_\n", next; my @row = $csv->fields(); $hashed{ $row[ 0 ] } = \@row; }close $in;
Update:Nevermind I was just being and idiot. Your solution worked great once I understood it thanks.
In reply to Re^2: printing CSV to file?
by Thargor
in thread printing CSV to file?
by Thargor
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |