Changes between Version 50 and Version 51 of Dev/Perl

Timestamp:

Mar 15, 2013 10:47:47 PM (11 years ago)

Author:

mitty

Comment:

--

Dev/Perl

@@ -10 +10 @@
   * see also [http://www.din.or.jp/~ohzaki/mail_regex.htm メールアドレスの正規表現]
  * [http://www.rwds.net/kuroita/program/ Programming note]
+ * [http://ido.nu/kuma/2006/09/12/avoiding-data-dumper-dumps-utf8-flagged-values-in-escaped-strings/ Data::DumperでUTF-8フラグつき文字列をエスケープさせないようにするには « ku]
+ > まず、デフォトルだと Data::Dumper はXSを呼び出していて、そのままだとコード的に割り込む余地がないのでUseperlにする。で、qquote()をカラにしたらできあがり。qquote()の中身をまるまる捨ててるのであとで困るのかもしれないけど困った時になんとかすればいい話。
+ > {{{#!perl
+ > use Data::Dumper;
+ > {
+ >     package Data::Dumper;
+ >     sub qquote { return shift; }
+ > }
+ > $Data::Dumper::Useperl = 1;
+ > }}}
 
  = perlbrew =