perl文件不存在检查[重复]

zpgglvta 于 2023-03-09 发布在 Perl

关注(0)|答案(1)|浏览(131)

How can I check if a file exists in Perl?（8个答案）
昨天关门了。
我想检查是否存在通过文件，并且在某个路径中没有失败文件。是否有文件不存在的操作符？

example path:
x.pass
y.fail

my $filepath = "path/to/file/";
if (-e "$filepath/*pass" && <*fail not exist>){
  #do something
}

1条答案

stat/-e获取有关文件的信息。如果存在错误（包括文件不存在），则返回false。如果文件不存在，则返回错误ENOENT。

if ( !-e $path ) {
   die( "`$path` doesn't exist\n" ) if $!{ENOENT};  # Optional.
   die( "Can't stat `$path`: $!\n" );
}

或

if ( !stat( $path ) ) {
   die( "`$path` doesn't exist\n" ) if $!{ENOENT};  # Optional.
   die( "Can't stat `$path`: $!\n" );
}

注意，你问的是如何检查一个文件是否存在，如果你问的是像你的例子所建议的那样的全局对象，you already know how to do that。