Changes between Version 1 and Version 2 of Dev/Perl/example

Timestamp:

Jan 14, 2011 5:05:08 PM (14 years ago)

Author:

mitty

Comment:

moved from ../

Dev/Perl/example

@@ -1 +1 @@
 [[PageOutline]]
+
+ * [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;
+print "$a\n";
+}}}
 
  = fork child process on CGI =