perl 比较文件

sunworld

如何用perl比较2个文件? 这里如果文件内容一样,但有几行的顺序可能不一样.比如:
文件A:
沃尔玛
家乐福

文件B:
家乐福
沃尔玛

这2个文件其实一样的,希望能判断一样的结果.

谢谢!

moxnet

先读取两个文件到内存, 分别将两个文件的内容按行排序, 再比较排序后的两段内容是否相同.

如果你的文件很大, 就需要更加smart的方法了.

sunworld

先读取两个文件到内存, 分别将两个文件的内容按行排序, 再比较排序后的两段内容是否相同.

如果你的文件很 ...
moxnet 发表于 2011-07-07 10:56

    可否给一个例子呢?详细一点更好.谢谢

moxnet

可否给一个例子呢?详细一点更好.谢谢
sunworld 发表于 2011-07-07 10:58

即使我可以帮你写,可是有啥意义呢?

有了思路, 代码写起来很快的. 思路方法比代码更重要.

yinyuemi

回复 3# sunworld


    另外一种思路，
   先将其中一个文件，存成hash，再读另外一个文件的内容，每行判断一次，是否存在于hash中，只要有一个不存在，就打印，退出，否则读完为止，打印结果。

sunworld

即使我可以帮你写,可是有啥意义呢?

有了思路, 代码写起来很快的. 思路方法比代码更重要.
moxnet 发表于 2011-07-07 11:06

    对perl不熟,有代码学起来好象容易.谢谢

momocraft

没有什么比自己写更有帮助

抛个砖

1. 
   
2. open A,'<filA';
   
3. open B,'<fileB';
   
4. my %a,%b,%h;
   
5. map{chomp;$a{$_}++;$h{$_}++;}<A>;
   
6. map{chomp;$b{$_}++;$h{$_}++;}<B>;
   
7. map{$a{$_}==$b{$_} or print "DIFF:$_\n";}keys%h;
   

复制代码

yinyuemi

大概意思：

1. open (a,"aa");
   
2. open (b,"bb");
   
3. while (<a>){
   
4.         chomp;
   
5.         $hash{$_}=1
   
6. }
   
7. while (<b>){
   
8.         chomp;
   
9.         next if($hash{$_}==1);
   
10.         print "diff-files","\n";
    
11.         exit;
    
12. }
    
13. print "the same files","\n";
    
14. close(a);
    
15. close(b);

复制代码

RE_HASH

Algorithm:iff::XS
灰常灰常快。先把文件读入存成数组，排序后sdiff.
内存一定要够大。

Dragon_yao

Algorithm:iff::XS

不怎么会用？