Multiline-compatible CSV reader sub

databind
vitalif 2010-09-29 13:49:47 +00:00 committed by Vitaliy Filippov
parent 2341bcc306
commit c5a92c67e9
1 changed files with 3 additions and 1 deletions

View File

@ -954,7 +954,9 @@ sub csv_read_record
$line .= $l;
while ($line =~ s/$re_field//)
{
push @parts, $1 || $2;
$l = $1 || $2;
$l =~ s/$q$q/$q/gs;
push @parts, $l;
return \@parts if !$3;
}
}