perl写的文件对比程序源码,改改就能用了。

#!/usr/local/bin/perl -w
use strict;
use File::Find;
my $path = ".";

###目录下的文件打包到下面这个数组
my @mydir;
###要对比的两个文件
my ($fileOne,$fileTwo);
###存1号文件用的数组
my %mingzhi;

####读取目录文件
find(/&process, $path);

sub process {
        if($_ =~ /(/.txt$)/){
         #print $_."/n";
   push (@mydir,$_);
        }
   }
#print join "/n",@mydir;
#print "/n";
my $i = 1;
foreach my $myfile (@mydir){
print $i." : ".$myfile."/n";
$i++;
}

&enterthenum;

if (($fileOne)and($fileTwo)) {
&suchu ($fileOne,$fileTwo);
};

 

print "对比结束，祝你愉快";
if (<STDIN>){};

 

#################下面全是子函数

#########提示用户输入
sub enterthenum {
     print "请猪选择要对比的文件"."/n";
     chomp(my $x= <STDIN>);
     #my ($z,$y) = $x =~ /(/d+)/s+(/d+)/;
      if ($x =~ /(/d+)/s+(/d+)/){
            ($fileOne,$fileTwo) = ($1,$2);
            print "您输入的是:"."$fileOne"."号"."  和"." $fileTwo"."号"."文件/n";
      } else {
            print "你有病啊？乱选！填数字喔"."/n";
           }
}

 

sub suchu {
    my ($agr1,$agr2) = @_;
 my (%agrhash1,%agrhash2);
   
 %agrhash1 = &inputhash($mydir[($agr1-1)]);
    my @paixu = &array(/%agrhash1);
 &write(/@paixu,($mydir[($agr1-1)]."顺序表"));
 
 %agrhash2 = &inputhash($mydir[($agr2-1)]);
    my @paixu2 = &array(/%agrhash2);
 &write(/@paixu2,($mydir[($agr2-1)]."顺序表"));
 my @array = &thedifference(/%agrhash1,/%agrhash2);
 &jieguo(@array);
 
 my %toushia = &findtoushi(/%agrhash1);
 my %toushib = &findtoushi(/%agrhash2);
 my @arraytoushi = &thedifference(/%toushia,/%toushib);
 &jieguotoushi(@arraytoushi);
 
 #my ($ohave,$thave,$diffe) = @array;
 #&write(/@{$ohave},($mydir[($agr1-1)]."独有"));
 #&write(/@{$thave},($mydir[($agr2-1)]."独有"));
 #&write(/@{$diffe},("两者共有"));
 
 #&write(/@{$array[0]},($mydir[($agr1-1)]."独有"));
 #&write(/@{$array[1]},($mydir[($agr2-1)]."独有"));
}

 

sub jieguo {
 my ($ohave,$thave,$diffe) = @_;
 &write(/@{$ohave},("A独有"));
 &write(/@{$thave},("B独有"));
 &write(/@{$diffe},("两者共有"));
}

sub jieguotoushi {
 my ($ohave,$thave,$diffe) = @_;
 &write(/@{$ohave},("A独有头饰"));
 &write(/@{$thave},("B独有头饰"));
 &write(/@{$diffe},("两者共有头饰"));
}

sub findtoushi {
   my ($toushi) = @_;
   my %have;
   foreach my $weibiao (keys %{$toushi}){
   if(($weibiao >= 5000) and $weibiao <= 6000){
   $have{"$weibiao"} = ${$toushi}{$weibiao};
   }
  }
  return %have;
}

######读取文本文件返回hash
sub inputhash {
    my ($linshi) = @_;
 my %hash;
    open(FILE, "<$linshi") or die "文件打开失败 ";
    while(<FILE>){
    if (/^(/d+)/#([/x80-/xff]+)/#/) {
    my $x=$1;
    my $y=$2;
    #print $x."=>".$y."/n";
    $hash{"$x"} = $y;
    #push(%mingzhi,($x => $y));
       }
    }
   close FILE;
   return %hash;
}

#####清除原有文件,并把数组写入文件
sub write {
   my ($arry,$linshi) = @_;
   $linshi =~ s//.txt//g;
   open(FILE, "+>$linshi.txt") or die "文件打开失败 ";   
 foreach my $hashref (@{$arry}) {
     #my($key, $value) = each %$hashref;
  my($key, $value) =  %{$hashref};
     print FILE "$key/#$value/n";
  #print "$key/#$value/n";
    }
    close FILE;
}

###对hash数组按KEY进行排序  参数是一个hash引用
sub array {
   my ($hash) = @_;
   my @paixu =  map { { ($_ => ${$hash}{$_}) } }
              sort {$a <=>$b} keys %{$hash};
  return @paixu;
}

sub thedifference {
   my ($onehash,$twohash) = @_;
   my %onehave;
   my %twohave;
   my %thrhave;
   my @fuck;
   ######找出1有2没有的
   foreach my $weibiao (keys %{$onehash}){
   if(!(${$twohash}{$weibiao})) {
     $onehave{"$weibiao"} = ${$onehash}{$weibiao};
    }
    }
   ######找出2有1没有的
   foreach my $weibiao (keys %{$twohash}){
   if(!(${$onehash}{$weibiao})) {
   $twohave{"$weibiao"} = ${$twohash}{$weibiao};
   }
  }
  ######找出两者共有的
  foreach my $weibiao (keys %{$twohash}){
   if(${$onehash}{$weibiao}){
   $thrhave{"$weibiao"} = ${$onehash}{$weibiao}."#".${$twohash}{$weibiao};
   }
  }
 
  my @fuck1 = &array(/%onehave);
  my @fuck2 = &array(/%twohave);
  my @fuck3 = &array(/%thrhave);
  @fuck = (/@fuck1,/@fuck2,/@fuck3);
  return @fuck;
}