課題８
各コドンをkeyとして、アミノ酸を値としてもつハッシュを作成し、
与えられた塩基配列をアミノ酸配列に変換する。
まずは、右クリックで以下のファイルをダウンロードし、ハッシュ（%codons）を作成します。 codon.txt ：コドンリスト dna.txt ：塩基配列
# コドンの書かれているファイルの内容を @file 配列変数に代入
open(IN, "codon.txt"); @file = <IN>; close(IN); # ハッシュ変数 %codons の作成 foreach $line (@file) { ($codon, $amino) = split(/\t/, $line); $codons{ $codon } = $amino; }
読み込んだ塩基配列をアミノ酸配列に変換するプログラムを作成しなさい。
ただし、塩基配列は、プログラムの実行時にファイル名を指定できるようにすること。 |