Le file se déplace dans Perl qui arrête le script actuel?

Comment puis-je faire ceci mv ($file $new_file/$1) or die("Errors 2") ;

de sorte qu'il arrête le script dans le terminal si le file n'est pas trouvé?

sinon il continue de répéter et de répéter et j'ai besoin de redémarrer la session de mastic afin que je puisse taper quelque chose

  use autodie; rename($file, "$dir/$newname") 
  • S'il ne parvient pas à renommer pour une raison quelconque, il va mourir. Si le file n'est pas là, il est évident qu'il est impossible de renommer et cela sera également pris en count.

Qu'en est-il de ceci alors:

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

Lisez le manuel pour la fonction rename() pour voir ses limites ( perldoc -f rename ) et ce que vous pourriez vouloir faire (p. Ex., Utilisez move() partir du module File::Copy ).