怎么改变print的默认输出？

qwert3399

print "abc";
默认print是输出到STDOUT，怎么改变？
比如我想让print默认输出到文件/var/file

DQP

select

yybmsrs

open(STDOUT,">/var/file");

print 111;

ynchnluiti

1. perl -e 'open FH, ">/tmp/abc"; select FH; print "def";'

复制代码

guap514

perl test.pl >/var/file

qwert3399

open(STDOUT,">/var/file");

print 111;
yybmsrs 发表于 2010-07-13 16:32

    额。。。这个是我要的，请问怎么再变回来，表鄙视偶

yybmsrs

回复 6# qwert3399


    再定义一个，或者用select，具体用法见perdoc -f select

qwert3399

回复  qwert3399


    再定义一个，或者用select，具体用法见perdoc -f select
yybmsrs 发表于 2010-07-13 17:08

OK懂了，谢谢
open(FILE,">/abc/file");
$|=1;
$f=select FILE;
print "abc";
select $f;

blackold

基础