Changes between Version 21 and Version 22 of Dev/Perl


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

moved to example

Legend:

Unmodified
Added
Removed
Modified
  • Dev/Perl

    v21 v22  
    3838  > でできちゃうわけですけれども! 
    3939 
    40  * [http://chalow.net/2008-05-10-3.html (を) Unicode の16進数の実体参照を正規表現などで元に戻す] 
    41 {{{#!perl 
    42 my $a = "情報時代"; 
    43 use HTML::Entities; 
    44 print HTML::Entities::decode($a), "\n"; 
    45 }}} 
    46 {{{#!perl 
    47 my $a = "情報時代"; 
    48 $a =~ s/&#x([0-9A-F]{4});/chr(hex($1))/ge; 
    49 print "$a\n"; 
    50 }}}