Code for Conversion of csv file into {" "},{" "} using perl script

Hi guys,
Can anyone help me convert a csv file into the above format i am looking out for a line by line conversion with the help of perl scripting.

With Regards,
Anupam

Oct 23 '06 #1

Follow Post Reply

3517

miller

1,089

Expert 1GB

Takes in a filename from the command prompt and outputs a new file with the extension ".new" with the given format. You can decode this code on your own.

Expand|Select|Wrap|Line Numbers

 
#!/usr/bin/perl
 
use strict;
 
require Text::CSV;
 
my $inFile = shift;

my $outFile = $inFile . '.new';
 
open(IN, $inFile) or die "open $inFile: $!";

open(OUT, ">$outFile") or die "open >$inFile: $!";
 
my $csv = Text::CSV->new;
 
while (my $line = <IN>) {

    if ($csv->parse($line)) {

        my $newLine = join ",", map {

            s/\"/\"\"/; # Escape all double quotes

            "{\"$_\"}" # New String Enclosure

        } $csv->fields;
 
        print OUT $newLine . "\n";

    } else {

        print "parse() failed on argument: ", $csv->error_input, "\n";

    }

}
 
close(IN) or die "close $inFile: $!";

close(OUT) or die "close $inFile: $!";
 
1;
 
__END__

Oct 23 '06 #2

anupam79

Hi Miller,
I have just changed my $infile = test This is my test.csv file I am getting the following error :-

Bareword "test" not allowed while "strict subs" in use at check.pl line 7.
Execution of check.pl aborted due to compliations errors.

The following given below is the change in the code I made
#!/usr/bin/perl

use strict;

require Text::CSV;

my $inFile = test;
my $outFile = $inFile . '.new';

open(IN, $inFile) or die "open $inFile: $!";
open(OUT, ">$outFile") or die "open >$inFile: $!";

my $csv = Text::CSV->new;

while (my $line = <IN>) {
if ($csv->parse($line)) {
my $newLine = join ",", map {
s/\"/\"\"/; # Escape all double quotes
"{\"$_\"}" # New String Enclosure
} $csv->fields;

print OUT $newLine . "\n";
} else {
print "parse() failed on argument: ", $csv->error_input, "\n";
}
}

close(IN) or die "close $inFile: $!";
close(OUT) or die "close $inFile: $!";

1;

__END__

Oct 23 '06 #3

miller

1,089

Expert 1GB

Hi Miller,
I have just changed my $infile = test This is my test.csv file I am getting the following error :-

Bareword "test" not allowed while "strict subs" in use at check.pl line 7.
Execution of check.pl aborted due to compliations errors.

If you got that error, then maybe you did something "wrong"? Maybe? Dude, I gave you all the code that you could possible need for this. I can't teach you perl over the forums, nor translate all the ways that you can screw up the code that I gave you into meaningful error messages.

Nevertheless, this one time. ok.

Bareword "test" not allowed at line 7. Hrmmm.... It's telling us that there is a problem at line 7. Wait! You changed something at line 7. What was it that we changed? Oh, that's right we added the word test. Oh, and look here, the error even says says bareword "test" not allowed? Maybe that was bad. Well golly shucks, maybe I should include any string in quotes?

my $infile = "test";

There, now the code will look for some input file named "test". Alternatively, you could just leave the code alone and input the filename from the command prompt.

perl check.pl test

Either way it would help if you took the time to learn at least an rudimentary understanding of perl before asking questions. There are no ignorant questions, just ignorant questioners. :)
QED

Oct 23 '06 #4