another split question

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

Replies are listed 'Best First'.
Re: another split question by ysth (Canon) on Sep 05, 2005 at 12:46 UTC
A couple of ways: `@elements = split /(?<=,)/, $text;` [download] or `@elements = $text =~ /([^,]+,?)/g;` [download]	[reply] [d/l] [select]
Re: another split question by TomDLux (Vicar) on Sep 05, 2005 at 14:45 UTC
The other way to deal with it is to use `split /,/` anyway, and then just know that there is a comma at the end of the string. You could even stick it back on if you wanted to. But it makes me wonder why you want the comma. I bet you really want foo1, not the quotes, not the comma. Probably if you re-consider whatever processing happens next, your code might simplify. Or maybe I'm wrong. TomDLux -- `TTTATCGGTCGTTATATAGATGTTTGCA`	[reply]
Re: another split question by Anonymous Monk on Sep 05, 2005 at 12:28 UTC
perldoc -f split `If the PATTERN contains parentheses, additional list eleme +nts are created from each matching substring in the delimiter. split(/([,-])/, "1-10,20", 3); produces the list value (1, '-', 10, ',', 20)` [download] How to RTFM	[reply] [d/l]
Re^2: another split question by blazar (Canon) on Sep 05, 2005 at 13:24 UTC
This is not exactly what the OP asked for. Of course it may be a starting point to achieve that based on the gathered data. But that would be more complex than is needed IMHO. ysth's reply comes closer to what he (the OP) really wants.	[reply]
How to LTFM... by polettix (Vicar) on Sep 05, 2005 at 12:45 UTC
Just a suggestion... where L stands for "Link" ;) `[doc://split]` [download] produces split. Flavio perl -ple'$_=reverse' <<<ti.xittelop@oivalf Don't fool yourself.	[reply] [d/l]
Re: another split question by sh1tn (Priest) on Sep 05, 2005 at 22:55 UTC
Alternatively regex can be used: `$text = '"foo1","foo2","foo3","foo4","foo5","foo6","foo7","foo8","foo9 +"'; push @comma_elems, $1 while $text =~ /(\S+?,)/g;` [download]	[reply] [d/l]
Re: another split question by Roger (Parson) on Sep 05, 2005 at 12:34 UTC
I just realised that is not what OP is looking for... There is the hard way... `use strict; use Data::Dumper; while (<DATA>) { chomp; my @rec; foreach (split /"(.*?)(?:(?<!")"(?!")\|(?<="")"(?!"))\|,/) { s/""/"/g, push @rec, $_ if $_ } print Dumper(\@rec); } __DATA__ 1,"Hello, world",This is good,2 121212,"Simpson, Bart",Springfield,"Roger" 121212,"2"" tape, ""white",springfield,"Roger" 121212,"Simpson "", Bart",Springfield,"Roger" 121212,"2""",springfield,"Roger"` [download] And there is the easy way... `use Text::CSV_XS; use Data::Dumper; my $csv = Text::CSV_XS->new(); while (<DATA>) { chomp; my $status = $csv->parse($_); my @rec = $csv->fields(); print Dumper(\@rec); } __DATA__ 1,"Hello, world",This is good,2 121212,"Simpson, Bart",Springfield,"Roger" 121212,"2"" tape, ""white",springfield,"Roger" 121212,"Simpson "", Bart",Springfield,"Roger" 121212,"2""",springfield,"Roger"` [download]	[reply] [d/l] [select]