perl - 在 Perl 中检查文件是否存在

Question

这个问题在这里已经有了答案:





How can I check if a file exists in Perl?

(8 个回答)


6年前关闭。




您将如何编写 Perl 脚本来检查文件是否存在？
例如，如果我想检查 $location 中是否存在 $file。
目前我正在使用一个冗长的子程序(见下文)，我确定有更简单的方法吗？

# This subroutine checks to see whether a file exists in /home
sub exists_file {
  @list = qx{ls /home};
  foreach(@list) {
  chop($_);
  if ($_ eq $file) {
    return 1;
  }
}

Answer 1

使用 -e运算符(operator):

if (-e "$location/$file") {
    print "File $location/$file exists.\n";
}

您可能希望使用比连接更强大的方法来连接 $location与 $file ， 尽管。另请参阅 File::Spec 的文档(包含在 Perl 中)或 Path::Class .