09/08/07 18:35:39
>>18
ファイルに退避させることはできるな。
#!/usr/bin/perl
*TAIHI = *STDOUT;
open(IN, '>/tmp/foo');
*STDOUT = *IN;
print "hello, world!\n";
*STDOUT = *TAIHI;
print "hi, there!\n";
メモリに退避する方法は良く分からん。open2使ったけど
うまくいかんかった。
09/08/07 18:35:39
>>18
ファイルに退避させることはできるな。
#!/usr/bin/perl
*TAIHI = *STDOUT;
open(IN, '>/tmp/foo');
*STDOUT = *IN;
print "hello, world!\n";
*STDOUT = *TAIHI;
print "hi, there!\n";
メモリに退避する方法は良く分からん。open2使ったけど
うまくいかんかった。