perl 比较文件

Dragon_yao

#!/usr/bin/perl

use strict;
use warnings;
use Data:umper;
use Algorithm:iff qw(diff);

die ("Usage: $0 file1 file2 \n" if @ARGV != 2;

my ($file1, $file2) = @ARGV;
-T $file1 or die ("$file1: binary\n";# -T is meaning of looks a .txt file(看起来像文本文件）
-T $file2 or die ("$file2: binary\n";

my @f1 = `cat $file1`;
my @f2 = `cat $file2`;

my $diffs = diff(\@f1, \@f2);#This is a ref
#print Dumper \$diffs;

my $count;
for my $chunk (@$diffs) {
        $count++;
        for my $line (@$chunk) {
                my ($sign, $lineno, $text) = @$line;
                printf "$sign%d %s", $lineno+1, $text;
                #printf "%s",$text;
        }
        print "---------------\n";

我用AlgorithmIff写过，但好像不行，这里我的其中一个文件是所有数据，另一个文件是所有数据当中的一部分，我想比较这两个文件，把另一个文件中没有的数据取出来。可这个程序实现不了？

RE_HASH

我用的Diff：：XS的Compact Diff，比较以后结果是数组里的索引。XS 版本比较perl版本kuai10-20倍。我比较1000-2000个文件只要20-30秒。

bgi_jeffrey

可以用sort和uniq试一试~~

cecial

在linux里，我觉得用sort和vimdiff直接看了

Kitaisky

回复 7# momocraft


    赞一个!!!