回答:
解決策は、すべてのものと同様に、perlスクリプトです。
#!/usr/bin/perl
use 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詳細は、特にためにstat
あなたが他のファイルの属性を比較したい場合は1。
ファイルがdirectory2に存在せず、directory1に存在する場合は、ファイルstat
が異なるため、そこにも出力されます。
2つのフォルダがある程度再帰的に同じであることを確認しますか?そのためのrsync
コマンドは非常に強力だと思います。
あなたの場合あなたは実行することができます:
rsync -n -rpgov src_dir dst_dir
(-n is a must otherwise dst_dir will be modified )
異なるファイルまたはフォルダーがコマンド出力としてリストされます。
man rsync
これらのオプションの詳細については、を参照してください。
ls -al
両方が同じフォルダにある場合は、次のようなものが表示されます。
drwxr-xr-x 4 root root 4096 nov 28 20:48 temp
drwxr-xr-x 2 lucas 1002 4096 mrt 24 22:33 temp2
3列目は所有者、4列目はグループです。
printf ("Permissions for %s and %s are not the same (%04o != %04o)\n", $file1, $file2, $mode1 &07777, $mode2 &07777) if ( $mode1 != $mode2);