- 26 名前：デフォルトの名無しさん mailto:sage [2009/08/07(金) 18:53:10 ]
- 5.8.0からin-memoryバッファをopenできるようになったよ
use strict;
my $buffer;
sub ob_start
{
open(MEM, ">", \$buffer) or die;
select(MEM);
}
sub ob_get_clean
{
select(STDOUT);
return $buffer;
}
ob_start();
print "hogehoge\n";
print ob_get_clean();
