Effective Perl Programming : Item 72-86

Item 72 Unicode

use open IN => ":cp1251", OUT => ":shiftjis";
open my ($out_fh), '>:encoding(UTF-8)', $filename or die;
open my ($in_fh), '<:encoding(koi8-r)', $filename or die;

Item 76 字符串解码

#!/usr/bin/perl 
use utf8;
my $phrase = '?ke on aika k?rmy';
my $bytes = encode( 'utf8', $phrase );
print 
join ':', map { sprintf '%02x', ord($_) }
split //, $bytes;

Item 79
Module::Build
Module::Starter
Distribution::Cooker