文件在Perl中停止当前脚本？

我怎么能做这个mv ($file $new_file/$1) or die("Errors 2") ;

所以如果文件没有find，它会停止在脚本中的脚本？

否则它不断重复和重复，我需要重新启动腻子会话，所以我可以键入的东西

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

如果由于任何原因而无法重命名，则会死亡。如果文件不在那里，显然不能重命名，也会被抓到。

那么这个怎么样：

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

请阅读rename()函数的手册以查看它的限制（ perldoc -f rename ）以及您可能想要做的事情（例如，使用File::Copy模块中的move() ）。