Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Trouble splitting pipe delimited

by Tanktalus (Canon)
on Nov 05, 2012 at 04:40 UTC ( #1002272=note: print w/replies, xml ) Need Help??

in reply to Trouble splitting pipe delimited

I'll second the anonymous monk's suggestion to use Text::CSV (or, better, Text::CSV_XS):

use Text::CSV_XS; use feature 'say'; use warnings; my @tests = ( [q[1|str|foo\\|bar|goo|2323] => [qw(1 str foo|bar goo 232 +3)]], [q[foo\\\\|bar] => [qw(foo\\ bar)]], ); for my $t (@tests) { my $s = $t->[0]; my @e = @{$t->[1]}; my $csv = Text::CSV_XS->new( { sep_char => '|', escape_char => '\\', } ) or die "" . Text::CSV_XS->error_diag( +); $csv->parse($s); my @o = $csv->fields(); say "$s\n @e\n @o\n"; }
The regex/split suggestions fail to take into consideration a doubled escape prior to a delimiter (see the second test). For your example, that may be fine, but your example is so obviously contrived that it can't be taken definitively.


$ perl5.16.2 1|str|foo\|bar|goo|2323 1 str foo|bar goo 2323 1 str foo|bar goo 2323 foo\\|bar foo\ bar foo\ bar
Hope that helps.

Replies are listed 'Best First'.
Re^2: Trouble splitting pipe delimited
by BillKSmith (Priest) on Nov 05, 2012 at 13:39 UTC
    Thanks for describing some of the "complex cases" that I dismissed so casually.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1002272]
[stevieb]: 16.96 hours of runtime of a Raspberry Pi on a 12v, 7.2Ah battery :) Now to watch now long it takes to recharge the battery completely with my 18v solar cells in the sun :)
[stevieb]: my high-range estimate was 18 hours
[stevieb]: battery was at about 95% capacity when the test began
[stevieb]: in the meantime while it was on battery, I got my shift register issues fixed, as well as certain interrupt issues

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (8)
As of 2017-03-26 15:26 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (315 votes). Check out past polls.