Re^3: split function for | and \| delimiter

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]

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

Replies are listed 'Best First'.
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]