Perl:将输入文件名添加到输出文件名

Question

我写了一个脚本,它读取目录中的每个文件,执行某些操作并将每个输入文件的结果输出到两个不同的文件,例如"outfile1.txt"和"outfile2.txt".我希望能够将生成的文件链接到原始文件,因此如何将输入文件名(infile.txt)添加到生成的文件名中,以获得如下内容:

infile1_outfile1.txt,infile1_outfile2.txt

infile2_outfile1.txt,infile2_outfile2.txt

infile3_outfile1.txt,infile3_outfile2.txt ......？

谢谢你的帮助!

Answer 1

使用替换从输入文件名中删除".txt".使用字符串连接来构建输出文件名:

my $infile = 'infile1.txt';

my $prefix = $infile;
$prefix =~ s/\.txt//;  # remove the '.txt', notice the '\' before the dot

# concatenate the prefix and the output filenames
my $outfile1 = $prefix."_outfile1.txt";
my $outfile2 = $prefix."_outfile2.txt";