Problem...

[COLLINEAU Franck FTRD/DMI/TAM]

Hi!

I have a problem with that code:

#!/usr/bin/perl -w
use File::Copy;
opendir (LMI,"lmi") || die "impossible d'ouvrir lmi: $!";

$chaine='BEGIN PAPIER';


while($fichier=readdir LMI)

{
        next if ($fichier eq '.' or $fichier eq '..');
        open (FICHIER,"lmi/$fichier") || die "impossible d'ouvrir $fichier:
!$\n";
        open(TEMP,"+>temp.htm")|| die "impossible d'ouvrir temp.htm: $!\n";
        print TEMP
"<!----------------------------------------------------------------->\n";
        $trouve=0;
        while(<FICHIER>)
        {
                $trouve = 1 if($_=~m/$chaine/);
                if ($trouve) 
        
                {
                        (print TEMP $_)|| die "écriture impossible dans
temp.htm $!\n";
                }
                                        
        }
        
        copy("temp.html","$fichier") ;
        close(FICHIER); 
        close(TEMP);
}


When i use the debugger, i see that the programm doesn't come in the loop
"while(<FICHIER>..."

Why ?


Thanks !

Franck

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