Changes between Version 20 and Version 21 of Dev/Perl


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

--

Legend:

Unmodified
Added
Removed
Modified
  • Dev/Perl

    v20 v21  
    3939 
    4040 * [http://chalow.net/2008-05-10-3.html (を) Unicode の16進数の実体参照を正規表現などで元に戻す] 
    41 {{{ 
     41{{{#!perl 
    4242my $a = "情報時代"; 
    4343use HTML::Entities; 
    4444print HTML::Entities::decode($a), "\n"; 
    4545}}} 
    46 {{{ 
     46{{{#!perl 
    4747my $a = "情報時代"; 
    4848$a =~ s/&#x([0-9A-F]{4});/chr(hex($1))/ge;