为什么Perl的File :: Copy似乎无声地失败？

发布时间：2020-12-15 23:30:29 所属栏目：大数据来源：网络整理

导读：我有一个适用于 Windows XP的Perl脚本. 它使用File :: Copy的移动功能将目录树移动到同一驱动器上的另一个位置.该脚本在Windows 2008上失败(静默).没有任何移动,没有删除任何内容. 我正在使用ActiveState Perl 5.10.0 Build 1005和它附带的File :: Copy. 有

我有一个适用于 Windows XP的Perl脚本.
它使用File :: Copy的移动功能将目录树移动到同一驱动器上的另一个位置.该脚本在Windows 2008上失败(静默).没有任何移动,没有删除任何内容.

我正在使用ActiveState Perl 5.10.0 Build 1005和它附带的File :: Copy.

有人知道Windows 2008上的ActiveState Perl可能会导致这个问题吗？

示例脚本：

use File::Copy;
print "Move AAA to ZZZn";

move("AAA","ZZZ");

print "Done.n";

解决方法

从 documentation：

RETURN

All functions return 1 on success,0 on failure. $! will be set
if an error was encountered.

这个例子无声地失败,因为什么都没有检查$！失败了.试试这个：

move($from,$to) || die "Failed to move files: $!";

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!