On Thu, 26 Jul 2001, COLLINEAU Franck FTRD/DMI/TAM wrote:
> 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/);
>
>
> }
Hard to say without knowing what errors you might be getting. You should
check for failure when you open your files, for one thing. If the files
aren't being opened, you need to print a message and die:
open(FICHIER,"rdn1.html") or die "Couldn't open rdn1.html: $!\n";
-- Brett
Brett W. McCoy
Software Engineer
Broadsoft, Inc.
240-364-5225
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
