#!/usr/bin/perl
open TEMP, ">>temp.txt";
select TEMP; #使标准输出改变到 TEMP
print "hello perl world.\n";
print "perl is very powerfull.\n";
select STDOUT; #又切换为标准输出
print "i am leaving select.\n";
运行后输出:
# ./select.pl
i am leaving select.
# cat temp.txt
www
groad
hello perl world.
perl is very powerfull.