如何正确处理 File::Slurp read_file 上的错误？
How to handle error on File::Slurp read_file properly?
我正在使用 File::Slurp read_file 和 write_file 函数来更新文件内容。
现在我专注于向它添加错误处理。为此，我尝试对实际不存在的文件执行以下方法。
1) read_file($file) or die("file read failed\n"); 不工作。只是抛出状态：500 软件错误。
2) try{ my @lines = read_file($file); } catch{ print "file cannot read";}; 不工作。
3) err_mode 就像在 http://search.cpan.org/~drolsky/File-Slurp-9999.13/lib/File/Slurp.pm#err_mode 中一样。不工作。
使用 Perl 是个坏主意吗File::Slurp？
该模块的文档似乎已过时且与行为不符（编辑：它已在 CPAN 上修复，只是 Fedora 附带的版本仍然存在不一致）。如 err_mode 中所述，错误时的默认行为是调用 croak()，而不是 read_file() 中提到的 return undef。所以是的，您要么必须使用 err_mode => 'quiet' 来获得 return-undef 行为，要么使用 try/catch 块。正如您所说，这些都不起作用，到底发生了什么？这两个对我来说都很好：
$ perl -MFile::Slurp -MTry::Tiny -e'try { $s=read_file("foo") } catch { die "bummer" };'
bummer at -e line 1.
$ perl -MFile::Slurp -e'$s=read_file("foo", err_mode => "quiet") or die "bummer";'
bummer at -e line 1.
我正在使用 File::Slurp read_file 和 write_file 函数来更新文件内容。
现在我专注于向它添加错误处理。为此，我尝试对实际不存在的文件执行以下方法。
1) read_file($file) or die("file read failed\n"); 不工作。只是抛出状态：500 软件错误。
2) try{ my @lines = read_file($file); } catch{ print "file cannot read";}; 不工作。
3) err_mode 就像在 http://search.cpan.org/~drolsky/File-Slurp-9999.13/lib/File/Slurp.pm#err_mode 中一样。不工作。
使用 Perl 是个坏主意吗File::Slurp？
该模块的文档似乎已过时且与行为不符（编辑：它已在 CPAN 上修复，只是 Fedora 附带的版本仍然存在不一致）。如 err_mode 中所述，错误时的默认行为是调用 croak()，而不是 read_file() 中提到的 return undef。所以是的，您要么必须使用 err_mode => 'quiet' 来获得 return-undef 行为，要么使用 try/catch 块。正如您所说，这些都不起作用，到底发生了什么？这两个对我来说都很好：
$ perl -MFile::Slurp -MTry::Tiny -e'try { $s=read_file("foo") } catch { die "bummer" };'
bummer at -e line 1.
$ perl -MFile::Slurp -e'$s=read_file("foo", err_mode => "quiet") or die "bummer";'
bummer at -e line 1.