大佬教程收集整理的这篇文章主要介绍了如何在Perl中复制符号链接?,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
您还可以使用lstat()函数来读取符号链接的权限(而不是stat(),它将读取符号链接指向的文件的详细信息).
实际上,如果没有额外的帮助,就无法在新的符号链接上设置所有权,因为Perl不公开lchown()系统调用.为此,您可以使用CPAN的Perl Lchown模块.
假设有足够的权限(nb:未经检查的代码)
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
以上是大佬教程为你收集整理的如何在Perl中复制符号链接?全部内容,希望文章能够帮你解决如何在Perl中复制符号链接?所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。