2009年2月アーカイブ

t/mime-header..............1/13 # Failed test 'use Encode::MIME::Header;' # at t/mime-header.t line 27. # Tried to use 'Encode::MIME::Header'. # Error: Nested quantifiers in regex; marked by <-- HERE in m/ # =\? # begin encoded word # (?:[-0-9A-Za-z_]+) # charset (encoding) # (?:\*[A-Za-z]{1,8}+ <-- HERE (?:-[A-Za-z]{1,8})*)? # language (RFC 2231) # \?(?:[QqBb])\? # delimiter # (?:.*?) # Base64-encodede contents # \?= # end encoded word # / at /Users/daisuke/.cpan/build/Encode-2.30-TT_cZT/blib/lib/Encode/MIME/Header.pm line 107. # Compilation failed in require at (eval 5) line 2. # BEGIN failed--compilation aborted at (eval 5) line 2. Unknown encoding 'MIME-Header' at t/mime-header.t line 44

use DateTimeX::Lite; my $dt = DateTimeX::Lite->new(year => 2008, month => 12, day => 1); $dt->year; $dt->month; $dt->day; $dt->hour; $dt->minuute; $dt->second; # Arithmetic doesn't come with DateTimeX::Lite by default use DateTimeX::Lite qw(Arithmetic); $dt->add( DateTime::Liate::Duration->new(days => 5) ); # Strftime doesn't come with DateTimeX::Lite by default use DateTimeX::Lite qw(Strftime); $dt->strftime('%Y %m %d');

daisuke@beefcake-7 Data-Localize$ perl -Mblib tools/benchmark/benchmark.pl Rate locale_maketext data_localize locale_maketext 9585/s -- -65% data_localize 27273/s 185% --

my @ct = grep { /^text/i } $res->header('content-type'); $res->header('content-type', @ct); print $res->decoded_content;

DB<1> HTTP::Message::decoded_content(/usr/local/lib/perl5/site_perl/5.8.8/HTTP/Message.pm:201): 201: if (my @ct = HTTP::Headers::Util::split_header_words( \ $self->header("Content-Type"))) {

DB<1> x @ct 0 ARRAY(0x8d334c) 0 'text/html' 1 undef 2 'charset' 3 'EUC-JP' 1 ARRAY(0x9f0be8) 0 'application/xhtml+xml' 1 undef 2 'charset' 3 'EUC-JP'

DB<2> n HTTP::Message::decoded_content(/usr/local/lib/perl5/site_perl/5.8.8/HTTP/Message.pm:293): 293: if ($ct && $ct =~ m,^text/,,) {

use LWP::UserAgent; my $ua = LWP::UserAgent->new(); my $res = $ua->get('http://yugioh-wiki.net/index.php?%A5%C8%A5%C3%A5%D7%A5%DA%A1%BC%A5%B8'); my @ct = grep { /^text/i } $res->header('content-type'); $res->header('content-type', @ct); print $res->decoded_content;

use strict; use CPAN; use Module::CoreList; use Module::ScanDeps; use File::Find::Rule; use File::Spec; use File::Temp qw(tempdir); if (scalar @ARGV != 2) { print <<EOM; Usage: deps2extlib.pl target [extlib] target - the directory or script that you want to compile dependencies against. extlib - the path where you want to install your dependecies. EOM exit 1; } my $target = $ARGV[0]; my $dir = File::Spec->rel2abs($ARGV[1] || 'extlib'); unshift @INC, $dir; my @files; if (-d $target) { @files = File::Find::Rule ->file() ->or( File::Find::Rule->name('*.pl'), File::Find::Rule->name('*.pm') ) ->in($target); } else { @files = ($target); } my $h = scan_deps_runtime( compile => 1, files => \@files, recurse => 1, ); my %seen; my $corelist = $Module::CoreList::version{ $] }; CPAN::HandleConfig->load unless $CPAN::Config_loaded++; my $home = tempdir(CLEANUP => 1); local $CPAN::Config->{cpan_home} = $home; local $CPAN::Config->{keep_source_where} = File::Spec->catdir($home, 'sources'); local $CPAN::Config->{build_dir} = File::Spec->catdir($home, 'build'); local $CPAN::Config->{prerequisites_policy} = 'follow'; local $CPAN::Config->{makepl_arg} = "INSTALL_BASE=$dir"; local $CPAN::Config->{mbuild_arg} = "--install_base=$dir"; local $CPAN::Config->{mbuild_install_arg} = "--install_base=$dir"; foreach my $key (sort keys %$h) { next if $key =~ /^unicore/; next if $key =~ /^auto/; $key =~ s/\//::/g; $key =~ s/\.pm$//; next if exists $corelist->{$key}; my $dist = CPAN::Shell->expandany($key)->cpan_file ; if ($dist =~ /\/perl-/) { warn "won't try to install perl, but we found dependency on $dist"; next; } next if $seen{ $dist }++; CPAN::Shell->install($dist); }

perl deps2extlib.pl /path/to/myapp /path/to/extlib

use MyApp::I18N; my $handle = MyApp::I18N->get_handle('ja'); print $handle->maketext("Hello, World!"), "\n";

package MyApp::I18N; use strict; use base qw(Locale::Maketext); 1;

package MyApp::I18N::ja; use strict; use base qw(MyApp::I18N); our %Lexicon = ( "Hello, World!" => "みなさん、こんにちは！" ); 1;

package MyApp::I18N; use strict; use base qw(Locale::Maketext); use Locale::Maketext::Lexicon { '*' => [ 'Gettext' => '/path/to/localization/*.po' ], # ファイル名じゃなくてパス中にen/jaとかがはいるなら、以下のようにする： # '*' => [ 'Gettext' => '/path/to/localization/*/data.po' ], _decode => 1 }; 1;

eval "package MyApp::I18N; Locale::Maketext::Lexicon->import( { ja => [ Gettext => '/path/to/another/localization/ja.po' ] _decode => 1 }); "

use strict; use I18N::LangTag (); # なんかいっぱいエクスポートしちゃうので・・・ use I18N::LangTag::Detect; use Data::Dumper; print Dumper( [ I18N::LangTag::implicate_supers( I18N::LangTag::Detect::detect() # もしくは # I18N::LangTag::Detect->http_accept_langs() ) ]); # env LC_ALL=ja_JP perl script.plと実行すると以下のように出力されるはず # $VAR1 = [ # 'ja-jp', # 'ja' # ];

loc_lang( I18N::LangTags::implicate_supers( I18N::LangTags::Detect::detect() ) );

package MyApp; use strict; use Locale::Maketext::Simple Decode => 1, Path => do { # これは、auto/MyApp/I18N以下にファイルを入れれば、設定する必要はない my $path = $INC{'MyApp.pm'}; $path =~ s{\.pm$}{/I18}; # lib/MyApp/I18N/ に変換 $path; } ; sub run { loc_lang("ja"); print loc("Hello, World!"), "\n"; } 1;

# lib/MyApp/I18N/ja.po msgid "Hello, World!" msgstr "みなさん、こんにちは！"

use strict; use Config::General; use Data::Dumper; my $string = <<EOM; connect_info dbi:mysql:dbname=hoge connect_info username connect_info password <connect_info> mysql_enable_utf8 1 </connect_info> EOM my $cfg = Config::General->new(-String => $string); print Dumper({ $cfg->getall }); # 結果 $VAR1 = { 'connect_info' => [ 'dbi:mysql:dbname=hoge', 'username', 'password', { 'mysql_enable_utf8' => '1' } ] };