如何把输出导入到文件里，在屏幕上也有输出

huanghaojie

UID: 17400
帖子: 56
积分: 128
在线时间: 4 小时

1^# huanghaojie 发表于 2009-01-08 00:15

如何把输出导入到文件里，在屏幕上也有输出

#!/usr/bin/perl
use strict;
use warnings;
my $i;
open(BIN, ">>/home/jiangt/perl/aa")||die("can't create file: $!");
for($i=0;$i<30;$i++){
print BIN ($i,"\n");
}
close BIN;

open(FILE, "< /home/jiangt/perl/aa" ) or die "Can't open /home/jiangt/perl/aa : $!";
while ( <FILE> )
{print;}
close FILE;

这样太绰了，我知道在shell里用tee.

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

2^# MMMIX 发表于 2009-01-08 01:01

在 cpan 上搜索 tee

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

3^# ly5066113 发表于 2009-01-08 09:43

print 2次不行么？

for($i=0;$i<30;$i++){
print BIN ($i,"\n");
print ($i,"\n");
}