camel

鐃緒申呂鐃緒申泙鐃�DateTime鐃熟使ってなわ申鐃塾わ申鐃緒申鐃宿￥申better practice鐃薯見つわ申鐃緒申鐃夙思わ申鐃塾で￥申

[perl] DateTime->now(time_zone => 'local')鐃獣て件申鐃緒申 - 鐃緒申鐃緒申鐃縮わ申鐃緒申鐃緒申(鐃緒申鐃緒申鐃�) (2006-12-06)
Perl鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃盾ジ鐃遵ー鐃緒申離妊侫鐃緒申鐃緒申肇鐃緒申鐃緒申鐃緒申鐃緒申鐃宿でわ申鐃緒申DateTime鐃叔わ申鐃緒申鐃緒申鐃緒申鐃殉で「ワ申鐃緒申鐃準ゾ鐃緒申鐃緒申覆鐃銃ワ申鐃緒申鐃銃ワ申鐃緒申鐃緒申鐃緒申鐃緒申討鐃緒申鐃緒申里鐃緒申蘊￥申鐃祝種申辰討鐃緒申討曚鐃緒申鐃緒申廚箸鐃緒申鐃緒申鐃粛鰹申鐃� 
DateTime->now(time_zone => 'local');

鐃淑わ申討鐃緒申箸鬚靴討鐃緒申里任鐃緒申鐃緒申鐃緒申鐃緒申譴�鐃緒申鐃駿なわ申鐃夙わ申発鐃出わ申鐃殉わ申鐃緒申鐃緒申

鐃緒申圓能颪�と￥申鐃淑駕申鐃塾とわ申鐃所。

my $tzhere = DateTime::TimeZone->new( name => 'local' );
my $dt = DateTime->now(time_zone => $tzhere);

鐃竣は￥申鐃緒申鐃初か鐃緒申鐃緒申DateTime::TimeZone鐃緒申鐃瞬ワ申鐃緒申鐃緒申鐃夙をこわ申鐃緒申鐃夙わ申鐃銃￥申鐃緒申鐃緒申鐃夙わ申鐃藷せとわ申鐃緒申鐃緒申鐃夙￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃淑常申帽鐃渋�鐃祝なるし鐃緒申鐃楯￥申鐃緒申鐃俊ワ申謄鐃緒申鐃渋誌申覆鐃緒申鐃緒申箸發�鐃緒申泙鐃緒申鐃�

dtbench.pl 
#!/usr/bin/perl
use strict;
use DateTime;
use DateTime::TimeZone;
use Benchmark qw/cmpthese timethese/;

sub gentest {
    my $tz = shift;
    sub { DateTime->now( time_zone => $tz ) }
}
my $tzhere = DateTime::TimeZone->new( name => 'local' );
my %these;
for my $tz ( 'local', 'Asia/Tokyo', $tzhere ) {
    my $name = ref($tz) ? q($tz) : qq('$tz');
    $these{ "now($name)" } = gentest($tz);
}
cmpthese( timethese( 0, \%these ) );
FreeBSD 6-STABLE 
  now($tz):  3 wallclock secs ( 3.16 usr +  0.02 sys =  3.18 CPU) @ 2279.15/s (n=7247)
now('Asia/Tokyo'):  4 wallclock secs ( 3.19 usr +  0.02 sys =  3.20 CPU) @ 2029.58/s (n=6501)
now('local'):  4 wallclock secs ( 0.87 usr +  2.36 sys =  3.23 CPU) @ 67.25/s (n=217)
                    Rate      now('local') now('Asia/Tokyo')          now($tz)
now('local')      67.3/s                --              -97%              -97%
now('Asia/Tokyo') 2030/s             2918%                --              -11%
now($tz)          2279/s             3289%               12%                --
Mac OS X v10.4.8 
 now($tz):  4 wallclock secs ( 3.23 usr +  0.02 sys =  3.25 CPU) @ 2871.08/s (n=9331)
now('Asia/Tokyo'):  3 wallclock secs ( 3.18 usr +  0.01 sys =  3.19 CPU) @ 2616.61/s (n=8347)
now('local'):  3 wallclock secs ( 3.09 usr +  0.16 sys =  3.25 CPU) @ 1767.38/s (n=5744)
                    Rate      now('local') now('Asia/Tokyo')          now($tz)
now('local')      1767/s                --              -32%              -38%
now('Asia/Tokyo') 2617/s               48%                --               -9%
now($tz)          2871/s               62%               10%                --

鐃緒申鐃淑みに￥申OS X鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃淑わ申鐃塾は￥申/etc/localtime鐃緒申symlink鐃緒申鐃緒申鐃初。DateTime::TimeZone鐃熟わ申鐃塾常申鐃緒申Symlink鐃緒申鐃宿わ申妊鐃緒申鐃緒申爛常申鐃緒申鐃縮常申鬚垢鐃緒申乏鐃緒申个鐃緒申里鐃緒申鐃緒申鼻鐃緒申促侫鐃緒申鐃緒申鐃塾常申鐃熟￥申/usr/share/zoneinfo鐃淑駕申鐃塾フワ申鐃緒申鐃緒申鐃緒申鐃緒申鐃�File::Compare鐃緒申鐃緒申咾鐃緒申鐃夙わ申鐃緒申鐃殉わ申鐃殉わ申鐃緒申鐃緒申法鐃緒申調鐃駿まわ申鐃緒申

鐃緒申鐃緒申覆箸鐃緒申鐃緒申鐃緒申福鐃�

Dan the Man with Too Many Timezones to Cover