sharq
| Цитата | | интересно, что именно и как получилось? |
Собственно, сам регексп вот:
| Код | sub parse_csv1 {
my $text = shift; # record containing comma-separated values
my @fields = ( );
while ($text =~ m{
# Either some non-quote/non-comma text:
( [^"',] + )
# ...or...
|
# ...a double-quoted field: (with "" allowed inside)
" # field's opening quote; don't save this
( now a field is either
(?: [^"] # non-quotes or
|
"" # adjacent quote pairs
) * # any number
)
" # field's closing quote; unsaved
}gx)
{
if (defined $1) {
$field = $1;
} else {
($field = $2) =~ s/""/"/g;
}
push @fields, $field;
}
return @fields;
}
|
Минус один он пустые поля пропускает, т.е. пропарсив
| Код | qq /"Раз", "", "Три"/; |
мы получим
| Код | $fields[0] = "Раз";
$fields[1] = "Три"; |
|