Smart::CommentsとかData::DumperのUTF-8文字列をエスケープしない

調べてみると色々でてくる。

• Data::Dumper や Smart::Comments の出力を utf8 文字列に変更する | ミヤビッチの穴

Smart::Commentsで調べると上のサイトが出てくる。$SIG{__WARN__}をフックする方法らしい。これは毎回このコードを書かないとダメそうなので面倒っぽい。

• Data::Dumper の日本語文字化けと Syntax::Collector。 - Qiita
• Data::DumperでUTF-8フラグつき文字列をエスケープさせないようにするには - ku
• Data::Dumper でUTF-8文字列をエスケープしないようにする :: OMIMO.net／デザインとクラフトワークと、写真と映像と、少しのプログラム

Dat::Dumperのqquote関数を上書きする方法。

今回はSmart::Commentsさえどうにかなれば良いので、Smart/Comments.pmを書き換える。

use Data::Dumper 'Dumper';
{
    package Data::Dumper;
    no warnings 'redefine' ;
    sub qquote { return wantarray? @_ : shift; }
}
$Data::Dumper::Useperl = 1;
binmode STDERR, ":utf8";

色々マージしてこんな感じかなあ。

以前も同じようなことをしたはずだけど、Cygwinを再インストールしたら変更がもとに戻ってやり方を忘れてしまったのでメモしておく。