Mov di un file + Verifica

[boss_dev]

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:

#!/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

[shishii]

l'operatore "==" vale per i confronti tra numeri, per i confronti tra stringhe si usa "eq". A parte ciò sarebbe molto meglio al posto di:

$i = 0;
while ($i <= $#thefiles) {
if ($nome_file == @thefiles[$i]){
print "$ok";
last;
}
$i++;
}

scrivere:

foreach my $file (@thefiles) {
if (nome_file eq $file) {
print $ok;
last;
}
}

[boss_dev]

Originariamente inviato da shishii
l'operatore "==" vale per i confronti tra numeri, per i confronti tra stringhe si usa "eq". A parte ciò sarebbe molto meglio al posto di:

$i = 0;
while ($i <= $#thefiles) {
if ($nome_file == @thefiles[$i]){
print "$ok";
last;
}
$i++;
}

scrivere:

foreach my $file (@thefiles) {
if (nome_file eq $file) {
print $ok;
last;
}
}

Grazie per l'aiuto

Con il codice sopra mi controlla ogni singolo elemento e in base all'uguaglianza mi stampa una stringa. Se volessi fare un'unica stampa alla fine delle verifiche?

Grazie in anticipo

[shishii]

devi salvare i risultati positivi in una struttura più complessa (array o hash) e stamparla alla fine.