すごく久々だが、うまい！

についても総合講義。盛りだくさんな内容だったので、消化不良に注意^^；。

大きなmultifasta形式のファイルを100コずつのmultifastaのファイルに分割する呪文。 #!/usr/bin/perl my $i = 0; my $file = "sequence"; while() { chomp; my $string = $_; if($string =~ /^\>/) { $i++; if($i % 100 == 1) { close FILE; open(FILE, ">$…

estwisedbに取りかかろうとしたが、いろいろと勘案するとestwisedbに力を入れてやるのはあまり得策ではないということで、工夫してtblastxの精度を上げる方向に軌道修正。