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]

Reply via email to