Hello COLLINEAU,
Friday, July 27, 2001, COLLINEAU Franck FTRD/DMI/TAM
<[EMAIL PROTECTED]> wrote:
CFFDT> I have a problem with my code:
CFFDT> #!/usr/bin/perl -w
CFFDT> opendir (LMI,"lmi") || die "impossible d'ouvrir lmi: $!";
CFFDT> $chaine="BEGIN PAPIER";
CFFDT> while($fichier=readdir LMI)
CFFDT> {
first, you should not open . and ..
next if ($fichier eq '.' or $fichier eq '..');
CFFDT> open (FICHIER,"lmi/$fichier") || die "impossible d'ouvrir $fichier:
CFFDT> !$\n";
CFFDT> open(TEMP,">>temp.htm")|| die "impossible d'ouvrir temp.htm: $!\n";
CFFDT> print TEMP
CFFDT> "<!----------------------------------------------------------------->\n";
CFFDT> $trouve=0;
CFFDT> while($fichier)
second, you have endless loop here. $fichier always true.
may be you mean
while($fichier=<FICHIER>)
or
while(<FICHIER>)
if you use $_?
CFFDT> {
CFFDT> $trouve = 1 if($_=~m/$chaine/);
CFFDT> if ($trouve)
CFFDT> {
CFFDT> (print TEMP $_)|| die "écriture impossible dans
CFFDT> temp.htm $!\n";
CFFDT> }
CFFDT> if (/DATA\/unnoir.gif/) {last};
CFFDT> }
CFFDT> close(FICHIER);
CFFDT> close(TEMP);
CFFDT> }
CFFDT> closedir LMI;
Best wishes,
Maxim mailto:[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
