Cuestión : el Perl, usar el parse_line a delimitar por coma, sino a mantener doble-cotiza

Utilizo parse_line para partir una secuencia basada en la coma (no tengo biblioteca de CSV y no quiero instalarla), pero quiero guardar la cotización doble.  texto del

use:: ParseWords;

my $mystring = “uno, dos, \ “tres \”, cuatro ";
my $delim_char = “,”;
my $delim_string = “\ \ s* \ \ s*$delim_char”; @fields del
my = del &parse_line ($delim_char, 0, $mystring); el
print ensambla (” \ n ", @fields), “\ n”;
class= del

Respuesta : el Perl, usar el parse_line a delimitar por coma, sino a mantener doble-cotiza

Poner un 1 para la variable de $keep (el 2do parámetro)

texto del hombre:: ParseWords explica el sintaxis del below

mis @fields = &parse_line ($delim_char, 1, $mystring);