[d]perl运行结果输出到文件中时，文件名中可以用变量代替吗？
本帖最后由 fibbery 于 2012-09-30 21:26:33 编辑 我在运行perl程序时，每次循环需要输出一次文件，每次文件名不同，想在文件名中插入一个变量，请各位高手指点。

while(<READ_BATCH_FILE>){
$num++;
open(WRITE_FILE,">Result_$此处想要文件名变量.txt")||die"$!\n";
         输出操作。。。
close(WRITE_FILE)||die"$!\n";

}
close(READ_BATCH_FILE)||die"$!\n";

--------------------
Double行动：
原帖分数：20
帖子加分：20
[解决办法]

my $num = 0;
my $filename = "abc";
while(<READ_BATCH_FILE>){
    $num++;
    open(WRITE_FILE, "> Result_$filename$num.txt")
[解决办法]
die"$!\n";
    print WRITE_FILE $_; #输出操作。。。
    close(WRITE_FILE)
[解决办法]
die"$!\n";
}
close(READ_BATCH_FILE)
[解决办法]
die"$!\n"

[解决办法]
while(<READ_BATCH_FILE>){
$num++;
eval('open(WRITE_FILE,"'.">Result_$file_num\.txt\"\);print WRITE_FILE $_;close\(WRITE_FILE\);");
}

close(READ_BATCH_FILE)
[解决办法]
die"$!\n";