在大文件中照小文件对应项的剩余部分并输出

#!/usr/bin/perl

use strict;
use warnings;

#####input#####
my $all = $ARGV[0]; my $part_file = $ARGV[1];



#####mian#####

my $all_in = &store($all);
my $part =&store($part_file);

&check($all_in,$part);



#####sub#####

sub check
{
     my ($a_arr,$p_arr)= @_;my %p=%{$p_arr};my %a=%{$a_arr};
     
     foreach my $key(keys %p)
     {
         if ($a{$key})
         {
             my %hash_2 = %{$a{$key}};
             
             foreach my $key2 (keys %hash_2)
             {
                 if(($a{$key}{$key2})&&(!($p{$key}{$key2}))){print "$a{$key}{$key2}\n";}
             }
         }
     }
}


sub store
{
    my $in = shift;open LIST,"$in";
    
    my %all;

    while(my $line = <LIST>)
    {   
        chomp($line);my @split = split /\t/,$line;
        
        $all{$split[0]}{$split[1]}=$line;
    }
    return \%all;
}