比較兩個目錄文件是否相同

有時候我們需要比較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