while (<$fh1>) { chomp; next if $_ eq ''; s{ ("[^"]+") }{ (my $one = $1) =~ s{,}{-}xmsg; $one =~ s{"}{}g; $o +ne; }xmsge; print $_, "\n"; }
The test file you made should be sufficient because the only thing I am changing is the comma to a dash and removing the quotes from the one column in question.
"Its not how hard you work, its how much you get done."
In reply to Re^4: Modifying CSV File
by roho
in thread Modifying CSV File
by roho
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |