配列内の foreach ループを使用してファイルの出力を取得しています。
すべてを取得した後、新しい配列でファイルのセクションのみを抽出するにはどうすればよいですか。
これは私のコードです
foreach (@genetic_codes) {
chomp;
my @genetic_codes = split(':', $_);
if (@genetic_codes != 5) { # error on this line next;
}
my $amino_acid = join('","', split(/,/, $genetic_codes[4]));
print "$genetic_codes[2]=> [$genetic_codes[0],$genetic_codes[1],[$amino_acid]],\n";
}
これは正しい私の出力です。
"M"=> ["Methionine","Met",["ATG"]],
"F"=> ["Phenylalanine","Phe",["TTT"," TTC"]],
"P"=> ["Proline","Pro",["CCT"," CCC"," CCA"," CCG"]],
"S"=> ["Serine","Ser",["TCT"," TCC"," TCA"," TCG"," AGT"," AGC"]],
"T"=> ["Threonine","Thr",["ACT"," ACC"," ACA"," ACG"]],
"W"=> ["Tryptophan","Trp",["TGG"]],
ここで、すべてのコドンを取得して変数に入れZ
、重複を取り除く必要があります。
foreach ループを個別に作成する必要がありますか?
私は完全に迷っています、助けてください。---- の最後の出力が必要です
"Z"=>["ACT","AGT",---------------SO ON]],
上記の行の 3 文字すべてが 1 つの変数に含まれています。