[d]perl运作结果输出到文件中时，文件名中可以用变量代替吗

2013-01-23

[d]perl运行结果输出到文件中时，文件名中可以用变量代替吗？本帖最后由 fibbery 于 2012-09-30 21:26:33 编

[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";

热点排行

perl python

[d]perl运作结果输出到文件中时，文件名中可以用变量代替吗