[ PERL ] Aiutatemi ad interpretare uno script

[Zerk]

Salve avrei bisogno di aiuto nel capire se ci sono errori e se ho interpretato in modo corretto il seguente script.

NOTA: non l'ho scritto io, mi è stato consegnato senza commenti, che ho aggiunto in seguito. Io devo adattarlo per fargli fare un'altra cosa.

sub test_out()
{
my $file=$_[0]; # leggo il nome del file passato come parametro
while(1)
{
while(!(-e $file))
{
select(undef, undef, undef, 0.02); #controllo con una chiamata di sistema se il file è pronto
}

open(LETTURA,"< $file"); #apro il file in lettura
while($query=<LETTURA>) # siccome ogni riga contiene una query la eseguo
{
my $dbh = DBI->connect("dbi:mysql:ggg","$user","$pwd") or die "Non riesco a connettremi";
my $sth=$dbh->prepare($query);
$sth->execute();
$dbh->disconnect();
print "$query\n"; # stampo a video per debug?
}
system "rm $file"; # elimino il file
close(LETTURA); # chiudo l'handler ... ma come dopo aver eliminato il file?
}
}

Certe variabili sono definite esternamente al thread, quello che mi chiedevo è se è corretto eliminare il file e poi chiuderlo.

[Zerk]

Un' altro dubbio su questo script è in queste righe:

while(!(-e $file))
{
select(undef, undef, undef, 0.02);
}


dovrebbe controllare se il file esiste, in caso contrario entra nel ciclo che fa una chiamata di sistema con un timer, penso che l'intento sia controllare se il file è realmente pronto per essere processato, ma in questo caso se il file esiste la chiamata di sistema non viene effettuata o sbaglio?

Quindi bastava una sleep all'interno del ciclo.
Se invece si volesse controllare se il file è pronto, il codice così come è scritto non è corretto giusto?