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


Ignore:
Timestamp:
Jan 14, 2011 5:05:08 PM (9 years ago)
Author:
mitty
Comment:

moved from ../

Legend:

Unmodified
Added
Removed
Modified
  • Dev/Perl/example

    v1 v2  
    11[[PageOutline]] 
     2 
     3 * [http://chalow.net/2008-05-10-3.html (を) Unicode の16進数の実体参照を正規表現などで元に戻す] 
     4{{{#!perl 
     5my $a = "情報時代"; 
     6use HTML::Entities; 
     7print HTML::Entities::decode($a), "\n"; 
     8}}} 
     9{{{#!perl 
     10my $a = "情報時代"; 
     11$a =~ s/&#x([0-9A-F]{4});/chr(hex($1))/ge; 
     12print "$a\n"; 
     13}}} 
    214 
    315 = fork child process on CGI =