比较两个目录文件是否相同

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

有时候我们需要比较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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航