i have run into this problem before here's my code
foreach my $file (@$args){
#replace all newlines that are not imediately
# surrounded by quotes with a space
my $text = read_file( $file ) or die("Couldn't open $file for
preprocessing");
$text =~ s/([^\"])\r?\n([^\"])/$1 $2/g;
write_file($file, $text);
}
On 6/8/07, Ben Tilly <[EMAIL PROTECTED]> wrote:
> On 6/8/07, Gyepi SAM <[EMAIL PROTECTED]> wrote:
> > On Fri, Jun 08, 2007 at 03:26:56PM -0400, Alex Brelsfoard wrote:
> > > I have a CSV file where each line may NOT have the same number of fields.
> > > One item per line.
> >
> > xSV is line oriented: as long as each line is well formed it should be
> > parsed
> > correctly. Making sense of the data may be more difficult though.
>
> Yup.
>
> > > But occasionally a field in an item will have one or more newlines in it.
> > > How can I break this up correctly?
> >
> > Embedded newlines are OK as long as the field is quoted. However, not all
> > tools will parse the field correctly. Last time I checked, Text::CSV and
> > Text::CSV_XS do not. I suspect Text::xSV will be better behaved. There are
> > other, non Perl, tools that should work fine as well.
>
> I had thought that Text::CSV did handle that case, but I just checked
> and it does not. :-(
>
> Text::xSV does this correctly, though not speedily. Here is sample code:
>
> use strict;
> use Text::xSV;
>
> my $csv = Text::xSV->new(
> filename => "foo.csv",
> row_size_warning => 0, # Stop warnings for variable size rows.
> );
> while (my @row = $csv->get_row()) {
> # Do something here.
> }
>
> Cheers,
> Ben
>
> _______________________________________________
> Boston-pm mailing list
> [email protected]
> http://mail.pm.org/mailman/listinfo/boston-pm
>
_______________________________________________
Boston-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/boston-pm
