Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

reg exp

Apr 18, 2000, 8:33 PM
Pasha1
User (207 posts)
Apr 18, 2000, 8:33 PM
Post #1 of 2
Views: 1684
Shortcut
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!
Apr 18, 2000, 8:47 PM
Mark Badolato
Veteran (1509 posts)
Apr 18, 2000, 8:47 PM
Post #2 of 2
Views: 1600
Shortcut
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