perl如何把输出结果放入一个文本中？

Question

opendir(Dir,"D:\\read\\");
@File=readdir(Dir);
foreach $file_name(@File){
print "$file_name\n";
}
close(Dir);
这样以后，如何把结果放在一个txt里？

Answer 1

你可以有两个方案
1) 用 dos 本身的功能

perl yourscript.pl > C:\result.txt

2) 在 perl 里做
open F, ">C:/Result.txt" or die "$! Can't prepare file!";
opendir D "D:/read" or die "$! Can't read dir!";

print F "$_$/" while ( readdir D ) ; # 或者照你原来的写法就行了.

closedir D;

close F;

Answer 2

使用文件句柄啊。
open WH, "> result.txt";
...
print WH "....";
close