split function for | and \| delimiter

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

I have a file with the values like below:

9454958459|54|AWC XXX|B\|T\|MIN\|MAX\|Air Tree Reg 250 Min|Any(AT)|455|9966004325|..... and so on

I want to split it in a way so that I can get the output into an array with values like below

9454958459

AWC XXX

B\|T\|MIN\|MAX\|Air Tree Reg 250 Min

455

9966004325

and so on

How can I use the split function in perl to achieve this ?

Comment on split function for \| and \\| delimiter

Replies are listed 'Best First'.
Re: split function for \| and \\| delimiter by moritz (Cardinal) on May 25, 2012 at 18:39 UTC
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. Perl 6 - the future is here, just unevenly distributed	[reply] [d/l]
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


Just another Perl shrine
	PerlMonks