如何检查Archive::Tar的write方法执行是否成功？

现有写法可行性确认 #

你给出的判断写法是完全可行的。
Archive::Tar模块的write()方法官方定义的返回规则为：调用成功时返回布尔真值，出现任意错误（包括无写入权限、磁盘不足、压缩出错、源文件异常等）时返回布尔假值，你当前使用的unless分支判断逻辑完全匹配模块的接口约定，可以正常捕获失败场景。

优化建议 #

补充错误详情 #

可以借助模块内置的全局错误变量$Archive::Tar::ERROR输出具体失败原因，降低排查成本，优化后的代码示例：

use Archive::Tar qw(COMPRESS_XZ);

# 其他业务逻辑
unless ($tar->write( $name . '.tar.xz', COMPRESS_XZ )) {
    die("归档写入失败: $Archive::Tar::ERROR");
}

失败场景复现方式 #

如果需要自测失败处理逻辑，可以主动构造以下场景触发write调用失败：

• 目标输出目录设置为只读权限
• 填满输出路径所在的磁盘分区空间
• 输出路径的上级目录不存在
• 打包过程中删除待归档的源文件

内容的提问来源于stack exchange，提问作者Nico Eggers