Changes between Version 20 and Version 21 of Dev/Perl

Timestamp:

Jan 14, 2011 3:23:43 PM (14 years ago)

Author:

mitty

Comment:

--

Dev/Perl

@@ -39 +39 @@
 
  * [http://chalow.net/2008-05-10-3.html (を) Unicode の16進数の実体参照を正規表現などで元に戻す]
-{{{
+{{{#!perl
 my $a = "情報時代";
 use HTML::Entities;
 print HTML::Entities::decode($a), "\n";
 }}}
-{{{
+{{{#!perl
 my $a = "情報時代";
 $a =~ s/&#x([0-9A-F]{4});/chr(hex($1))/ge;