北海道苫小牧市出身の初老PGが書くブログ

永遠のプログラマを夢見る、苫小牧市出身のおじさんのちらしの裏

変数をファイルハンドルとしてopen

5.8系のperlでは、こんなことができるっぽい。



my $output = '';
open (OUT, ">" , \$output);
print OUT "test\n";
close(OUT);
print $output;




Catalystはこの構文を使っているので、5.6系のperlではtestが通らない。Engine/Test.pmをnew_tmpfileとかseekとかで書きなおせば、テストは全部通る。