perl指令碼比較兩個檔案的相同行和不同行
阿新 • • 發佈:2019-02-12
這個指令碼diff.pl用於求兩個檔案相同的行和不同的行所構成的差集(即A中存在而B中不存在的行,及B中存在而A中不存在的行)。
#!/usr/bin/perl
use 5.010;use strict;
use warnings;
use diagnostics;#warning info
my ($fileA,$fileB) = @ARGV;
open A,'<',$fileA or die "Unable to open file:$fileA:$!";
my %ta;
my $i;
while(<A>){
chomp;
$ta{$_} = ++$i;
}
close A;
open B,'<',$fileB or die "Unable to open file:$fileB:$!";
#open COMM_AB, ">$fileA.comm" or die "Unable to create comm file for $fileA and $fileB:$!";
open COMM_AB, ">$fileA.comm.txt" or die "Unable to create comm file for $fileA and $fileB:$!";
my $countAB;
my @B;
while(<B>){
chomp;
unless (defined $ta{$_}){
push @B,$_;
}else{
$ta{$_} = 0;
$countAB++;
print COMM_AB $_ ."\n";
}
}
close B;
print "$countAB lines both in $fileA and $fileB\n";
close COMM_AB;
# Output diff to different files respectively
#open DIFF_A, ">$fileA.diff" or die "Unable to create diff file for $fileA:$!";
open DIFF_A, ">$fileA.diff.txt" or die "Unable to create diff file for $fileA:$!";
my $countA;
my %tt = reverse %ta;
foreach (sort keys %tt) {
$countA += $_>0? print DIFF_A $tt{$_}."\n":0;
}
print "$countA lines in $fileA but not in $fileB\n";
close DIFF_A;
#open DIFF_B, ">$fileB.diff" or die "Unable to create diff file for $fileB:$!";
open DIFF_B, ">$fileB.diff.txt" or die "Unable to create diff file for $fileB:$!";
my $countB = scalar @B;
print DIFF_B $_."\n" foreach @B;
print "$countB lines in $fileB but not in $fileA\n";
if ($countA == 0 and $countB ==0 ){
print STDOUT "The two files are identical\n";
}
close DIFF_B;
測試結果: 輸入命令perl diff.pl test1.txt test2.txt
test1.txt:
slate
lava
granite
limestone
my ($fileA,$fileC) = @ARGV;
my ($fileA,$fileB) = @ARGV;
while(<A>){
chomp;
$ta{$_} = ++$i;
}
text2.txt:
slate
lava
granite
limestone
open A,'<',$fileA or die "Unable to open file:$fileA:$!";
while(<A>){
chomp;
$ta{$_} = ++$i;
}
test1.txt.comm.txt:
slate
lava
granite
limestone
while(<A>){
chomp;
$ta{$_} = ++$i;
}
test1.txt.diff.txt:
my ($fileA,$fileC) = @ARGV;
my ($fileA,$fileB) = @ARGV;
test2.txt.diff.txt:
open A,'<',$fileA or die "Unable to open file:$fileA:$!";