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"; } }
このぐらいまではなんとか礼儀作法が分かるようになってきた。応用もちょっとできたりして、面白くなってきた感。