#!/usr/bin/perl -w
use strict;

my $usage=<<USAGE;
Usage:
    perl $0 fuc.ID final_result.txt > Filterd_final_results.txt
	使用该perl程序，输入包括所有某一功能（组成、过程）的.ID文件 以及 结果文件，
	可对结果文件进行过滤。
USAGE

open IN, "$ARGV[0]" or die "$!";
open INN, "$ARGV[1]" or die "$!";
die $usage unless @ARGV == 2;

chomp(my @fil = <IN>);
my %filter;
foreach my $f(@fil){
	$filter{$f} = 1;
}
close IN;

my $first = <INN>;print $first;
while(<INN>){
	chomp;
	my @line = split /\t/;
	if (exists $filter{$line[0]}){print $_."\n";}
}
close INN;