code doesn't work

[COLLINEAU Franck FTRD/DMI/TAM]

Hi,

Can anybody tell me why this code doesn't work ?

#!/usr/bin/perl -w

open(FICHIER,"rdn1.html");
open (TEMP,">>temp.html");
while(<FICHIER>)
{
        print TEMP $_ until ($_ =~m/ancre/);


} 

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]