#!/usr/bin/perluse file::Find;my $directory1 = '/tmp/temp1';my $directory2 = '/tmp/temp2';find(\&hashfiles,$directory1);sub hashfiles { my $file1 = $file::Find::name; (my $file2 = $file1) =~ s/^$directory1/$directory2/; my $mode1 = (stat($file1))[2] ; my $mode2 = (stat($file2))[2] ; my $uID1 = (stat($file1))[4] ; my $uID2 = (stat($file2))[4] ; print "Permissions for $file1 and $file2 are not the same\n" if ( $mode1 != $mode2 ); print "Ownership for $file1 and $file2 are not the same\n" if ( $uID1 != $uID2 );}
有关详细信息,请查看http://perldoc.perl.org/functions/stat.html和http://perldoc.perl.org/File/Find.html,特别是如果要比较其他文件属性,请查看统计信息.
如果directory2中不存在文件但存在于directory1中,则还会输出,因为统计信息将不同.
总结以上是内存溢出为你收集整理的linux – 比较两个文件夹内容的所有者和权限?全部内容,希望文章能够帮你解决linux – 比较两个文件夹内容的所有者和权限?所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)