[已解决]Perl删除重复行的时候如何不打乱原有顺序？

CUer

原文件a.txt：

1. aaa
   
2. bbb
   
3. aaa
   
4. aaa
   
5. ccc
   
6. ddd
   
7. bbb
   
8. ddd
   

复制代码

希望得到的b.txt：

1. aaa
   
2. bbb
   
3. ccc
   
4. ddd

复制代码

这个代码虽然可以删除重复行，但是把顺打乱了：

1. use strict;
   
2. use warnings;
   
3. open(IN,"a.txt");
   
4. my %list;
   
5. while (<IN>) {
   
6.     $list{$_}++;
   
7. }
   
8. close IN;
   
9. open(OUT,">b.txt");
   
10. foreach (keys %list) {
    
11.     print OUT;
    
12. }
    
13. close OUT;

复制代码

Batcher

1. use strict;
   
2. use warnings;
   
3. open(IN,"a.txt");
   
4. open(OUT,">b.txt");
   
5. my %hash = ();
   
6. while (<IN>) {
   
7.     if (!$hash{$_}) {
   
8.         print OUT;
   
9.         $hash{$_} = 1;
   
10.     }
    
11. }
    
12. close IN;
    
13. close OUT;

复制代码

Batcher

1. perl -ane "if(++$a{$_}==1){print}" a.txt >b.txt

复制代码

DAIC

-ane是什么意思？

Batcher

4# DAIC


Perl命令行应用介绍
http://bbs.bathome.net/thread-12716-1-1.html

sxw

1. 
   
2. use strict;
   
3. use warnings;
   
4. my %hash;
   
5. while (<DATA>) {
   
6.     if (!$hash{$_}) {
   
7.         print;
   
8.       $hash{$_} += 1;
   
9.     }
   
10. }
    
11. __DATA__
    
12. aaa
    
13. bbb
    
14. aaa
    
15. aaa
    
16. ccc
    
17. ddd
    
18. bbb
    
19. ddd

复制代码

为什么结果是：

1. 
   
2. aaa
   
3. bbb
   
4. ccc
   
5. ddd
   
6. ddd
   

复制代码

不知道什么原因？

Batcher

6# sxw


最后一行ddd行尾的空格删掉，下面在加一个空行即可。

sxw

7# Batcher
恩，还真是这样的。哈哈，版主我是这样理解的，表述不太好，不知道对不对：
(1) 【ddd】和【ddd+空格】 在$_看来是不同的，所以打印出来会出现2次ddd，其实他们不一样，第一次是【ddd】，第二次是【dd+空格】
(2)至于为什么要在最后一行ddd后加上另一行，是为了给其增加一个换行符，这样两处的ddd就完全一样了