readdir

[COLLINEAU Franck FTRD/DMI/TAM]

I have a problem with my code:

#!/usr/bin/perl -w

opendir (LMI,"lmi") || die "impossible d'ouvrir lmi: $!";
$chaine="BEGIN PAPIER";
while($fichier=readdir LMI)
{
        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";
                }
                if (/DATA\/unnoir.gif/) {last};
                        
        }
        close(FICHIER); 
        close(TEMP);
}
                


closedir LMI;


it makes nothing !
 Can anybody help me ?


Thanks

Franck

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