查看2個(gè)文本不同

spritesu

有1.txt 和 2.txt
它們都有幾百行的字符串 但僅有幾處不同 （可能某處多了tab鍵之類的）
怎么用perl查出它倆的不同 存在result.txt里面
怎么用linux命令達(dá)到同樣效果呢？

求達(dá)人指點(diǎn)？？

wolf_xiao

#!/usr/bin/perl

use warnings;
use strict;

open FILEA,"a.txt";
open FILEB,"b.txt";
my @Aarr;
my @Barr;
while(<FILEA>{
  chomp;
  push @Aarr,$_;
}
while(<FILEB>{
  chomp;
  push @Barr,$_;
}
my $alength=scalar @Aarr;
my $blength=scalar @Barr;
my $i=0;
  while($i<$alength){
    unless( $Aarr[$i] =~ /$Barr[$i]/){
       print "line $iAarr[$i] $Barr[$i];\n";
      }
    $i += 1;
  }
#print "@Aarr\n";
#print "@Barr\n";

linux命令直接用diff 后面接文件名就可以了

rdcwayx

1. diff 1.txt 2.txt

復(fù)制代碼

kingfighters

兩個(gè)文件都放到散列里面。。比較吧。。

Crisewng

目測(cè)二樓的答案可以解決 。

Crisewng

目測(cè)二樓的答案可以解決 。

蘭花仙子

unix的diff？
and, Perl module Algorithm:iff is used for file comparison.