如何将输出到屏幕的内容写到一指定文件中！

ruiqing

询问如何将输出到屏幕的内容用perl写到一指定文件中；
忘能详细解答！

muyiyang2

用文件句柄
open(STDOUT,">;a.txt";
print "kkkkkkkkkk";
那么kkkkkkkkk就写到a.txt中了

流浪者

记得最后恢复STDOUT。
#!/usr/bin/perl

open(SAVEOUT,">;&STDOUT";
open(STDOUT,">;a.txt";
print ".....";

open(STDOUT,">;&SAVEOUT";