Zary Necheva wrote:
>
> Hi everyone,
Hello,
> I have a file with data similar to this
> ..........
> Exxxxx|FExxxxx|NQxxxxxx|OUxxxxxx|GExxxxxx|OVxxxxxxx|IQxxxxxxxx|ORxxxx
> Exxxxx|FExxxxxx|NQxxxxxx|GExxxxxxx|OVxxxxxx|OUxxxxxx|IQxxxxxxx|ORxxx
> Exxxxx|FExxxxxxx|NQxxxxxx|OUxxxxxx|OVxxxxxxx|ORxxxxxxx|IQxxxxxxx|RFxx
> Exxxxx|FExxxxxx|NQxxxxxx|GExxxxxxx|OUxxxxxx|IQxxxxxxx|ORxxxxxxxx
> .........
>
> I would like to extract only these fields that start with E, FE, NQ, IQ
> and OU or to have this output
>
> ..........
> Exxxxx|FExxxxx|NQxxxxxx|IQxxxxxx|OUxxxxxx
> Exxxxx|FExxxxx|NQxxxxxx|IQxxxxxx|OUxxxxxx
> Exxxxx|FExxxxx|NQxxxxxx|IQxxxxxx|OUxxxxxx
> Exxxxx|FExxxxx|NQxxxxxx|IQxxxxxx|OUxxxxx
> ......
while ( <> ) {
chomp;
print join( '|', /\b(?:OU|IQ|NQ|FE|E)[^|]+/g ), "\n";
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
