実行中のプログラムと同じディレクトリにあるファイルを開こうとしています。
読み取るファイルの正確な名前を指定するのではなく、「output.2.txt」で終わる任意のファイル名と一致できるようにしたいと考えています。このようなもの(ただし、これは機能しません):
if ($input == 2) {
my $seqs =~ m/output.2.txt/;
open $genes, '<', $seqs or die "Can't open '$seqs'";
}
glob
ファイル名のリストを展開するために使用します。
my @filenames = glob ("*output.2.txt");