I would use DBD::CSV or (I think) Text::CSV. I have a routine that I tried
to use in the past, but it gets more complicated than the split solution:
open(INFILE,"myfile.csv");
while(<INFILE>){
my @fields;
while($_ =~ /(\".*\")?,?([^\"]*)/g){
push @fields,$1;
push @fields,split(/,/,$2);
}
print OUTFILE join(',',@fields);
}
-----Original Message-----
From: Chris Knipe [mailto:[EMAIL PROTECTED]]
Sent: Thursday, February 20, 2003 12:34 PM
To: [EMAIL PROTECTED]
Subject: CSV inports...
Lo all,
I got a little problem with a CSV import... It should be rather straight
forward to people who do this often.. so I'm hoping for some help...
I have a MS Excel exported CSV text file, with , separated values. The
problem now, is that some of the values also contains a , character, and MS
Excel thus put the values in a quote such as:
"blah, blah", blah, "blah, blah, blah"
I have:
open(FILE, "<CC.csv");
while (<FILE>) {
my ($CK, $NAME, $ADDRESS, $TYPE) = split(',', $_);
}
close(FILE);
But this obviously does not work, seeing that it ignores values included in
the quotes "...
How would I go about fixing this little issue?
--
me
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
