如何查看Archive::Tar的写入是否成功？

Question

我有上个月的月度脚本运行存档文件。我正在使用 Archive::Tar 生成存档。如何检查对 ->write 方法的调用是否成功？

以下是否有效？我还没有成功 $tar->write()。

unless ($tar->write( $name . '.tar.xz', COMPRESS_XZ )) {
    die("cant write tar"); # or any other doings instead
}

Answer 1

是的，您问题中的代码将捕获 ->write 内的任何错误。

Archive::Tar 的文档没有指定 write 的 return 值是什么（除非没有提供参数，这里不是这种情况）。但是，在错误的情况下查看 the code of the module、write returns undef，在成功的情况下查看真值：

1 if it was writing to a file（你问题中的代码就是这种情况）
the written string if it was writing in a string.

注意，如果出现问题，Archive::Tar returns undef，那么它也会打印错误信息（除非你将$Archive::Tar::WARN设置为0 通过 $Archive::Tar::WARN = 0)。如果您想根据错误执行特定操作，可以使用 ->error 方法访问错误消息。

如何查看Archive::Tar的写入是否成功？

How to check if Archive::Tar's write is successful?

perl

tar