关于复制文件并保留属性

关于复制文件并保留属性

想用File::Copy,但发现这个包不能保留文件的属性(比如属主, 权限位等, 保留软链接, 就像cp中的-dp选项)

应该有可以保留文件属性的命令或包吧?麻烦哪位给个hint......

cpan中没有找到...
system("cp -dp ")
apile....
#!/usr/bin/perl

use warnings;

$source = "/home/jive/";
$target = "/usr/local/src";

system("cp -rdp $source $target");

这样写对不,测试可以实现复制功能。