split question

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: split question by FunkyMonk (Bishop) on May 29, 2008 at 22:20 UTC
split isn't the tool to use for this. Try Text::CSV. Unless I state otherwise, all my code runs with strict and warnings	[reply]
Re^2: split question by rovf (Priest) on May 30, 2008 at 08:53 UTC
Though I think too that Text::CSV is the best to use here (especially since it can handle escaped quotes (\"), I think in this simple case, split can be used: (1) remove the very first and the very last quote, then: (2) split /","/,.... -- Ronald Fischer <ynnor@mm.st>	[reply]
Re: split question by toolic (Bishop) on May 29, 2008 at 23:20 UTC
Yet another way, using a core module... `use strict; use warnings; use Text::ParseWords; my @words = quotewords(',', 0, q{"Foo,Bar","","Blah"}); print "$_\n" for @words;` [download]	[reply] [d/l]
Re: split question by PerlRob (Sexton) on May 29, 2008 at 22:37 UTC
This will do what you want: `my $string = '"Foo, Bar", "", "Blah"'; my @elements = $string =~ /"(.*?)"/g;` [download]	[reply] [d/l]
Re^2: split question by johngg (Canon) on May 29, 2008 at 23:06 UTC
Another way to do this would be to use a regex that avoids non-greedy matching by employing a negated character class, ie `"([^"])"` captures zero or more non-double quotes that are surrounded by double quotes. `$ perl -le ' > $s = q{"Foo, Bar", "", "Blah"}; > @e = $s =~ m{"([^"])"}g; > print for @e;' Foo, Bar Blah $` [download] I hope this is of interest. Cheers, JohnGG	[reply] [d/l] [select]
Re^2: split question by Anonymous Monk on May 29, 2008 at 22:45 UTC
thanks for both answers!	[reply]