求助，从表中删除指定的行。发现运行错误，请大家帮忙看一下代码

ygh1989

小弟是perl菜鸟，写了个程序发现错了，但是找不到问题，请论坛前辈指教。
有两个表，一个大表 BIG，一个表POS。要从BIG表中删除POS中的每一行。（BIG中包含了POS，要从BIG中删除POS的行）
但是运行后，产生的文件还是原来的BIG表，并没有删掉POS的行
另外，这个程序运行很慢，有没有更好的算法呢？
求指教 万分谢谢！

1. #/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. die "Usage: perl $0 POSTIVE BIG OUT\n" unless (@ARGV == 3);
   
6. 
   
7. open (POS, $ARGV[0]) or die "Can not open file $ARGV[0]\n";
   
8. open (BIG, $ARGV[1]) or die "Can not open file $ARGV[1]\n";
   
9. open (OUT, ">$ARGV[2]") or die "Can not open file $ARGV[2]\n";
   
10. 
    
11. my %postag = ();
    
12. 
    
13. while(<POS>){
    
14.         chomp;
    
15.         my @line = split/\s+/;
    
16.         my $var = $line[0]."\t".$line[1];
    
17.         $postag{$var} =1;
    
18. }
    
19. 
    
20. while(<BIG>){
    
21.         chomp;
    
22.         my $flg = 0;
    
23.         my @line = split/\s+/;
    
24.         foreach my $tag(keys %postag){
    
25.                 my @var = split(/\t/,$tag);
    
26.                 if((($line[0] eq $var[0])&&($line[1] eq $var[1]))||(($line[0] eq $var[1])&&($line[1] eq $var[0]))){
    
27.                         $flg=1;
    
28.                         last;
    
29.                 }
    
30.         }
    
31.         if(!$flg){
    
32.                 print OUT join("\t",@line),"\n";
    
33.         }
    
34.         
    
35. }

复制代码

只是一个红薯

1. use strict;
   
2. use warnings;
   
3. use Tie::File;
   
4. my (@pos, @big);
   
5. tie @pos,'Tie::File', 'POS';
   
6. tie @big,'Tie::File', 'BIG';
   
7. my @same=@big;
   
8. foreach my $delete_subscript(0..$#pos){
   
9.     foreach my $big_subscript(0..$#big){
   
10.         if($pos[$delete_subscript] eq $big[$big_subscript]){
    
11.             delete $same[$big_subscript];
    
12.         }
    
13.     }
    
14. }
    
15. @same= grep defined($_), @same;
    
16. @big=@same;
    
17. untie @pos;
    
18. untie @big;

复制代码