特定の数値を調べて特定の文字列でそれらの数値を見つけ、それに応じて特定のファイルに出力する必要があります。基本的に、私の質問は、ループの反復に従ってループに出力するためにファイルハンドルをどのように開くかです。
サンプルコード:
$rec_1= "481";
for my $all (@seq)
{
my $match = index($rec_1, $seq[$all]);
if ($match != -1)
{
# I want to open a file handle and output the contents of rec_1
# accordingly. (there will be 12 different files in the end.)
}
else
{
# print the data from rec_1 to not matches (another file)
}
}
合計で12のシーケンスを確認する必要があることがわかっているので、シーケンスが存在する場合はrec_1
データを調べrec_1
、そのシーケンスが含まれている場合は前のデータを含むファイルに追加することを確認する必要があります。