Ho una procedura perl che controlla il log di un FTP per verificare che questo sia terminato correttamente.
Sotto windows 95/98/2000/XP tutto funziona correttamente, mentre sotto windows NT la procedura sbaglia.
Il pezzo della procedura incriminato è il seguente:
open (FILELOG, "< c:\\ftplog.txt")|| die "\n ERRORE NUM 23 \n";
#se ho una riga che comincia con 550 o 450 qualcosa è andato male lo segnalo
while ($w_rigalog = <FILELOG>){
if ($w_rigalog =~ /^[550|450]/ ){die "\n ERRORE NUM 24\n";}
}
close FILELOG;
in window NT scatta l'errore 'ERRORE NUM 24' anche se all'interno del file di log non è presente alcun valore 550 o 450.
Qualche idea del perche ?