Re: split function for | and \| delimiter

The most robust solution is probably to use Text::CSV, which can handle delimiters and escaped delimiters.

If you want to do it with a regex, you must split on a vertical bar that is not preceeded by a backslash.

Since both the vertical bar and the backslash are meta characters in regexes, you need to backslash-escape both:

my @chunks = split /(?<!\\)\|/, $yourstring;
[download]

See perlretut for more details.

Comment on Re: split function for \| and \\| delimiter Download Code

Replies are listed 'Best First'.
Re^2: split function for \| and \\| delimiter by xorl (Deacon) on May 25, 2012 at 18:52 UTC
I've had better luck with Text::xSV otherwise I agree with moritz	[reply]
Re^2: split function for \| and \\| delimiter by darklord_999 (Acolyte) on May 25, 2012 at 19:16 UTC
Thanks for replying. I tried your idea but it didn't work. I got the output like `$str="9454958459\|54\|AWC XXX\|B\\|T\\|MIN\\|MAX\\|Air Tree Reg 250 Min\|Any(A +T)\|455\|9966004325\|"; @arr=split /(?<!\\)\\|/, $str; print "$_ \n" foreach(@arr);` [download] and the output is 9454958459 54 AWC XXX B T MIN MAX Air Tree Reg 250 Min 455 9966004325	[reply] [d/l]
Re^3: split function for \| and \\| delimiter by toolic (Bishop) on May 25, 2012 at 19:22 UTC
Use single quotes to prevent interpolation of $str: `use warnings; use strict; my $str='9454958459\|54\|AWC XXX\|B\\|T\\|MIN\\|MAX\\|Air Tree Reg 250 Min\|An +y(AT)\|455\|9966004325\|'; my @arr=split /(?<!\\)\\|/, $str; print "$_ \n" foreach(@arr); __END__ 9454958459 54 AWC XXX B\\|T\\|MIN\\|MAX\\|Air Tree Reg 250 Min Any(AT) 455 9966004325` [download]	[reply] [d/l]
Re^4: split function for \| and \\| delimiter by darklord_999 (Acolyte) on May 25, 2012 at 19:30 UTC
Yes this works. Thanks for your help :)	[reply]