有时候我们需要比较vss里两个目录下的source是否一致，而但从日期根本看不出什么来，所以需要逐一的比较，项目很大时，这项工作比较恼人。所以我做了一个工具，它能调查出来哪些文件内容相同，哪些不同，哪些仅在一个目录存在。
compDir.pl
#!/usr/bin/perl
die "parameter is not enough.\n"
if @ARGV < 2;
$now = localtime time;
print "compDir begin at $now\n";
sub compFile {
my $file1 = $_[0];
my $file2 = $_[1];
open SRC, "$file1"
or die "cannot open file '$file1': $!\n";
open DEST, "$file2"
or die "cannot open file '$file2': $!\n";
my @data1 = <SRC>;
my @data2 = <DEST>;
print "<$file1> and <$file2> are different files.\n" and return
if @data1 != @data2;
while (1) {
my $d1 = shift @data1;
my $d2 = shift @data2;
last if !defined $d1;
print "<$file1> and <$file2> are different files.\n" and return
if $d1 ne $d2;
}
if (@data1 != 0) {
print "<$file1> and <$file2> are different files.\n" and return;
}
#print "<$file1> and <$file2> are same files.\n"
close SRC;
close DEST;
}
sub get_file {
my $dir = $_[0];
shift @_;
chdir $dir or die "cannot chdir to '$dir': $!\n";
my @files = <*>;
foreach $file (@files) {
if (-d "$dir\\$file") {
@_ = &get_file("$dir\\$file", @_);
} else {
push @_, "$dir\\$file";
}
}
@_;
}
sub get_short_name {
$string = $_[0];
$mode = $_[1];
$mode =~ s/\\/\\\\/;
$string =~ s/^$mode\\//;
$string;
}
@name1 = &get_file($ARGV[0], @name1);
@name2 = &get_file($ARGV[1], @name2);
%nameHash1;
foreach (@name1) {
my $short_name = &get_short_name($_, $ARGV[0]);
$nameHash1{$short_name} = $_;
}
%nameHash2;
foreach (@name2) {
my $short_name = &get_short_name($_, $ARGV[1]);
$nameHash2{$short_name} = $_;
}
foreach (@name1) {
my $short_name = &get_short_name($_, $ARGV[0]);
if (exists $nameHash2{$short_name}) {
&compFile($_, $nameHash2{$short_name});
} else {
print "$_ exist only! \n";
}
}
foreach (@name2) {
my $short_name = &get_short_name($_, $ARGV[1]);
if (exists $nameHash1{$short_name}) {
# &compFile($_, $nameHash2{$short_name});
} else {
print "$_ exist only! \n";
}
}
$now = localtime time;
print "compDir end at $now\n";
运行结果：
C:\>perl compDir.pl d:\plsql d:\plsql2
compDir begin at Thu Nov 11 17:42:32 2004
<d:\plsql\aaa.txt> and <d:\plsql2\aaa.txt> are different files.
d:\plsql\aaaaa\twoSql.sql exist only!
d:\plsql\bbbb.txt exist only!
d:\plsql2\aaaaa\bbb\getSource.sql exist only!
compDir end at Thu Nov 11 17:42:33 2004