query配列とhitした配列からいろいろと取り出して表示する

#!/usr/local/bin/perl

while ($buffer = ) {
    if ($buffer =~ /^Query=/)  {
	$buffer =~ s/^Query=//;
        @query_list = split (/\s/, $buffer);
        $query_list[0] =~ s/\|$//;


        print "Query seq:\t".$query_list[0]."\n";
    }

    if ($buffer =~ /^>/) {
        $buffer =~ s/^>//;
        @hit_list = split (/\s/, $buffer);
        $hit_list[0] =~ s/\|$//;


        print "Hit seq:\t".$hit_list[0]."\n";
    }

}

このぐらいまではなんとか礼儀作法が分かるようになってきた。応用もちょっとできたりして、面白くなってきた感。