Ciao ragazzi,

sto cercando di fare un .pl che mi prenda un file(txt) da una directory e lo sposti in un'altra. Successivamente verifica che il file sia stato correttamente spostato e lancia a video un messaggio di conferma.

Ora, il codice che ho fatto e' questo:

codice:
#!/usr/bin/perl
use File::Copy;

$oldlocation = "C:/PIPPO/uno.txt";
$newlocation = "C:/PLUTO/";
move($oldlocation, $newlocation);

#Accede alla directory specificata
opendir(pluto, "C:/PLUTO/") || die("Accesso alla directory non riuscito!"); 
#Dentro l'array thefiles inserisce il contenuto della directory
@thefiles= readdir(pluto); 

#Variabili stringhe
$ok = "File copiato correttamente";
$ko = "Trasferimento no riuscito";
$nome_file = "uno.txt";

$i = 0;
while ($i <= $#thefiles) {
	if ($nome_file == @thefiles[$i]){
		print "$ok";
		last;
	}
	$i++;
}
closedir(pluto);
Il file viene viene correttamente spostato, ma la logica che gestisce l'esito dell'operazione non e' corretta, mi stampa a priori File copiato correttamente .

Mi sto vendendo perl da 1 giorno e mezzo, qualcuno potrebbe aiutarmi?

Grazie in anticipo