如何用Perl批量生成文件

看你的代码，应该可以生成2011个文件，文件名是file1.txt、file2.txt、……、file2011.txt，但是只有file1.txt有内容，后面的文件都是0长度，应为你生成file1.txt文件的时候，已经把F0文件全部读完了，file2.txt开始while(<F0>)后面的语句都不执行的，除非你每次在while(<F0>)语句之前open(F0,'xxx')，当然也要在while结束后CLOSE(F0）

perl官网安装Strawberry

Perl，安装

写代码，将代码文件后缀名改为*.pl

双击，即可运行。

重新编辑代码，可右键，打开方式选择记事本打开，编辑，保存。

#!/bin/perl -w

for(my $j = 0 $j <4$j = $j + 1)

{

for(my $k = 0$k <2$k++)

{

for(my $l = 0$l <4$l++)

{

for(my $m = 0$m <16$m++ )

{

open IN,"test.txt" or die "test.txt"

open OUT, ">test_$j\_$k\_$l\_$m.txt" or die "test_$j\_$k\_$l\_$m.txt"

print "$j\_$k\_$l\_$m\n"

while(<IN>)

{

$_=~s/a=0/a=$j/g

$_=~s/b=0/b=$k/g

$_=~s/c=0/c=$l/g

$_=~s/d=0/d=$m/g

print OUT $_

}

}

}

}

}

你的之所以实现不了，可能和你的test_$j_$k这样的命名方式有关。

也可能和你文件句柄打开位置有关。上面的代码是我修改过的你可以再试试，如果还有问题，可以及时联系。

---