perl 基本操作

读入输出文件：

 #可以在input里面,选取feat存在的那一行,并且输出
if(@ARGV<3)
{
    print "useage:<input> <output> <feat>/n";
    exit;
}

    open ( INPUT ,"$ARGV[0]")||die;
    open ( OUT , ">$ARGV[1]")||die;
    open ( TOK, "$ARGV[2]")||die;
    %hash = ();

    while($line = <TOK>)
    {
        chomp($line);
        $hash{$line} = 1;
    }

    close(TOK);

    while($line=<INPUT>)
    {
        @a=split('/t' , $line);

        for($i=0 ; $i<@a-1 ; $i++)
        {
            if($hash{$a[$i]}==1)
            {
                print OUT  $line;
                last;
            }
        }
    }