Cleaning poorly formated csv files

Hi,

I’m new to perl and this list. I am trying to create a script that cleans up
csv files in the following ways:

-Remove tab characters
-Remove trailing commas
-Replace ^’ character sequence with a comma
-Want to preserve the CRLF and the end of each line

Then I output the results to another file. I managed to get the tabs removed
but I am having difficulties working on the next item in my task list,
removing trailing commas. Any insight or comments would be appreciated



#Example of whats in the in.txt
ABC,  20020313,"        02:51:47            ",”some text”,,,,,,,,
ABC,  2002     0313,"   02:51:47            ",”more text”,
ABC,  2002031            3,"        02:51:47            ",even^’more^’text,
ABC,  20020313,"        02:51:47            ",,,,,,,,

#My Code
#!Perl
$fileIN = "in.csv"; # Dirty csv file
$fileOUT = "out.csv";

open (IN, $fileIN) or die "Cannot open $fileIN for read :$!";
open (OUT,"> $fileOUT") or die "Cannot open $fileOUT for writing :$!";

while (<IN>) {
            $_=~ tr/\t//d;
            print OUT "$_";
            print "$_\n";
}



Regards,
Dave

• Cleaning poorly formated csv files by Dave Chappell
• Re: Cleaning poorly formated csv files by Jonathan E. Paton
• RE: Cleaning poorly formated csv files by Dave Chappell
• RE: Cleaning poorly formated csv files by Jonathan E. Paton
• Re[2]: Cleaning poorly formated csv files by Daniel Gardner