if (m/^<a name/) {
chomp(my $MyPush = <FILE>);
push @line, $MyPush;
}
Probably make it in one line, but gives you the idea.
Wags ;)
-----Original Message-----
From: COLLINEAU Franck FTRD/DMI/TAM
[mailto:[EMAIL PROTECTED]]
Sent: Tuesday, September 25, 2001 01:52
To: Perl (E-mail)
Subject: the line whitch follows $_
Hi!
I have the follwing code:
while (<FILE>)
{
push @line, $_ if(m/^<a name/);
}
I don't exactly want that.
I would like to push the line whitch is immediately after $_.
How can I do ?
Thanks
Franck
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]