[已解决]Perl怎样删除相邻的重复行？

CUer

a.txt：

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

复制代码

希望处理后得到b.txt：

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

复制代码

523066680

1. 
   
2. open READ,"<a.txt" or die "file not exist $!";
   
3. open WRITE,">b.txt";
   
4. $ever="";
   
5. foreach (<READ>) {
   
6.         if ($_ ne $ever) {print WRITE;}
   
7.         $ever=$_;
   
8. }
   
9. <STDIN>;
   
10. close READ;
    
11. close WRITE;
    

复制代码