[已解決]請問如何用perl去除一個txt中兩列相同的行

baiguihuajl

請問如何用perl去除一個txt中兩列相同的行，謝謝~~~
例如將文件1.txt：
a        m
s        k
a        b
b        f
b        b
c        s
g        g
s        b
中的黃色部分的行去掉，變成
a        m
s        k
a        b
b        f
c        s
s        b

sunzhiguolu

回復 1# baiguihuajl
試下:

1. 
   
2. #!/usr/bin/perl
   
3. use 5.010;
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. while (<>){
   
8.     chomp;
   
9.     my ($col1, $col2) = split /\s+/;
   
10.     say "$col1 $col2" if ($col1 ne $col2);
    
11. }
    

復制代碼

1. 
   
2. perl abc.pl file.txt
   

復制代碼

baiguihuajl

回復 2# sunzhiguolu

謝哈~這里為什么不能用"=="呢？還有say和print的區(qū)別是什么呢？

我的代碼

1. #user/bin/perl
   
2. open(F1,"1.txt");
   
3. while(<F1>){
   
4.         chomp;
   
5.         @a=split(/\t/,$_);
   
6.         if($a[0] == $a[1]){
   
7.                 next;
   
8.         }else{
   
9.                 print "$a[0]\t$a[1]\n";
   
10.         }
    
11. }
    
12. close(F1);

復制代碼

為什么得不到結果，謝哈~~~

sunzhiguolu

回復 3# baiguihuajl

1.> 這里為什么不能用"=="呢？
2.> say和print的區(qū)別是什么呢

1.> == 數值比較, eq 字符串比較
2.> say 相當與 print "\n"

使用 say 函數之前, 記得添加 use 5.010; 指令.

   

Okelani

1. while (<DATA>) {
   
2.     my ( $left, $right ) = split;
   
3.     print if $left ne $right;
   
4. }
   
5. 
   
6. __DATA__
   
7. a        m
   
8. s        k
   
9. a        b
   
10. b        f
    
11. b        b
    
12. c        s
    
13. g        g
    
14. s        b
    

復制代碼