Gossamer Forum
Home : General : Perl Programming :

reg exp

Quote Reply
reg exp
I've tried everything, but nothing works Frown

I got many lines that look like this:

Code:
zzz|z|222| || ||z| |z|z|PPP!.!X!
ds| ||e|ee| ||eee|KLMN!.!X!
w|www|wwwwww|qq|o2kd!.!X!

I need to strip everything before "|" pipes, including all pipes. So the result will be:

Code:
PPP!.!X!
KLMN!.!X!
o2kd!.!X!

Anybody? Please!
Quote Reply
Re: reg exp In reply to
Code:
#!/usr/bin/perl

use strict;

my @blah = (
'zzz|z|222| | | | |z| |z|z|PPP!.!X!',
'ds| | |e|ee| | |eee|KLMN!.!X!',
'w|www|wwwwww|qq|o2kd!.!X!',
);

/^.+\|(.+)$/ && print "$1\n" foreach @blah;

--mark