Changes between Version 19 and Version 20 of Dev/Perl


Ignore:
Timestamp:
Jan 14, 2011 3:23:09 PM (9 years ago)
Author:
mitty
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • Dev/Perl

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