perl, using parse_line to delimit by comma, but keep the double-quotes

I use parse_line to split a string based on comma (I don't have CSV library and do not want to install it), but I want to keep the double quote.  

use Text::ParseWords;

my $mystring = "one, two, \"three\", four";
my $delim_char = ",";
my $delim_string = "\\s*$delim_char\\s*";
my @fields = &parse_line($delim_char,0,$mystring);
print join("\n",@fields),"\n";
rgbcofAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
ropennerConnect With a Mentor Commented:
Put a 1 for the $keep variable (2nd parameter)

man Text::ParseWords explains the syntax of the below

my @fields = &parse_line($delim_char,1,$mystring);
0
 
jeromeeCommented:
Please take a look at :
http://perldoc.perl.org/perlfaq4.html#How-can-I-split-a-[character]-delimited-string-except-when-inside-[character]%3f


Good luck!
0
 
ropennerCommented:
one
 two
 "three"
 four


This is the output if you put the '1' in the code as explained above.  Have a good one.
0
 
rgbcofAuthor Commented:
Right on.  Thanks
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.