A movimentação do arquivo no Perl pára o script atual?

Question

como posso fazer isso mv ($file $new_file/$1) or die("Errors 2") ;

então isso pararia o script no terminal se o arquivo não fosse encontrado?

caso contrário, ele continuará repetindo e repetindo, e eu preciso reiniciar a putty session para poder digitar algo

    

Answer 1

 use autodie;
 rename($file, "$dir/$newname")

• Se não mudar o nome por algum motivo, ele morrerá. Se o arquivo não estiver lá, obviamente não foi possível renomear e isso também será detectado.

Answer 2

E sobre isso, então:

if ( -f $file ) {
  rename($file, "$dir/$newname")
    or die("Could not rename '$file' to '$dir/$newname'");
} else {
  die("File '$file' does not exist");
}

Leia o manual da função rename() para ver suas limitações ( perldoc -f rename ) e o que você pode querer fazer a respeito (por exemplo, use move() do módulo File::Copy ).