tieを利用してSTDOUTの出力を弄る - すぎゃーんメモprint文でのSTDOUTの出力先を変更する方法 - すぎゃーんメモの続き。 id:mattnさんから「tieを使うのが一般的かと思いますよ」とコメントをいただきました。ありがとうございます。 tieって名前は聞いたことがあったけど、まったく使ったことがなかった。。 ドキュメント読んだりしながら勉強してみた。 perltie - オブジェクトクラスを単純な変数に隠す方法 - perldoc.jp tieでSTDOUTをつかまえる - 徒書 まだよく理解できてないところはあるけど、とにかく「オブジェクトクラスを変数にゴニョゴニョすることができる」らしい。 とりあえず書いてみた。 #!/opt/local/bin/perl use strict; use warnings; my $hoge; { $hoge = tie local *STDOUT, 'Hoge'; print "hoge"
