Changes between Version 19 and Version 20 of Dev/Perl

Timestamp:

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

Author:

mitty

Comment:

--

Dev/Perl

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