perl比较两个目录中的文件内容是否相同

最新推荐文章于 2025-11-25 15:08:07 发布

原创

最新推荐文章于 2025-11-25 15:08:07 发布 · 4.5k 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#Perl

这是一个使用Perl脚本比较两个目录中所有*.lat文件内容的程序。它首先生成两个目录的文件列表，然后逐一对比每个文件，如果内容相同则记录到result.log，不同则忽略。此外，还包含一个辅助函数用于比较单个文件内容是否相同。

#比较两个目录中的文件内容是否相同
#!/bin/perl
if($#ARGV < 0)
{
print "usage:perl compare.pl dir1 dir2\n";
exit(-1);
}
#my($rec, $ref) = @ARGV;

#!/bin/perl

my($lat1,$lat2)=@ARGV;

system ( "dir \/b \/s \/O:N $lat1\\\*\.lat > lat1.list ");
system ( "dir \/b \/s \/O:N $lat2\\\*\.lat > lat2.list ");

my $dif=1;

open(dlat1, "<lat1.list") or die "3\n";
open(dlat2, "<lat2.list") or die "4\n";
open(result, ">result.log") or die "5\n";
$old = select result;
$|=1; #immediately write flush(result);
select $old;

my @alat1 = ();
my @alat2 = ();
@alat1 = <dlat1>;
@alat2 = <dlat2>;
my $countout=@alat2;
my $count=0;
my $count2=0;
#select (select (result),$|=1)[0];
print (result "res