如何复制Perl中的符号链接？

Question

如何在保留所有符号链接属性（如所有者和权限）的情况下，在Perl程序中复制符号链接（而不是它指向的文件）？

感谢， splintor

Answer 1

在Perl中你可以使用readlink()功能找出一个符号链接的目标。

您也可以使用lstat()函数读取符号链接的权限（而不是stat()，它将读取符号链接指向的文件的详细信息）。

实际上，如果没有额外的帮助，就不能在新的符号链接上设置所有权，因为Perl不会公开lchown()系统调用。为此，您可以使用CPAN的Perl Lchown模块。

假设有足够的权限（注：未选中代码）

use Lchown; 
my $old_link = 'path to the symlink'; 
my $new_link = 'path to the copy'; 

my $dst = readlink($old_link); 
my @stat = lstat($old_link); 

symlink $dst, $new_link; 
lchown $stat[4], $stat[5], $new_link; # set UID and GID from the lstat() results 

你并不需要担心的符号链接的权限 - 他们总是显示为-rwxrwxrwx

Answer 2

模块File::Copy::Recursive需要的是关怀。默认情况下，它将复制符号链接并尝试保留所有权。