in reply to Re: CRLF in a csv
in thread CRLF in a csv

You're right, of course. This seems to be better: 
use strict;
use Text::ParseWords;

undef $/;
my $infile = (<>);

my @fields = &parse_line("\n", 1, $infile);

foreach (@fields) {
  s/\n/ /;
  print "$_\n";
}

[download]
It handles "John said \"Hello\"". As a matter of fact, it handles it better than Excel, which creates a field that looks like 
John said \Hello\""

[download]

Replies are listed 'Best First'.
Re: Re: Re: CRLF in a csv
by geofisch (Initiate) on Apr 05, 2001 at 00:59 UTC
    But, then again... The Text::ParseWords module is certainly powerful, but I can't seem to make it handle errors very well. It does not like
    "John said "Hello"","again"
    So I went back to my earlier method with a better regex 
    undef $/;
my $infile = (<>);

my @fields = $infile =~ /(".*?"(?=,|\n)|\n)/gms;

my $place = "\n";
foreach (@fields) {
  if ($place ne "\n" && $_ ne "\n") {print  ",";};
  unless ($_ eq "\n") {s/\n//g;};
  print  "$_";
  $place = $_;
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom