如何複製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需要的是關懷。默認情況下，它將複製符號鏈接並嘗試保留所有權。