ocehb | sub { @_[0..3],$_[4]+1,$_[5]+1900 }->(localtime) (Reply)

You're viewing

ocehb's journal
Create a Dreamwidth Account Learn More

Reload page in style: site light


# perl -le 'print join "+",sub { @_[0..3],$_[4]+1,$_[5]+1900 }->(localtime)'
48+26+10+1+10+2008


# perl -MBenchmark -e '
   sub A () { my @a = localtime; return ( @a[0..3],$a[4]+1,$a[5]+1900 ) }
   sub B () { return sub { @_[0..3],$_[4]+1,$_[5]+1900 }->(localtime) }
   timethese ($ARGV[0],{ A => \&A,B => \&B })' 1000000             
Benchmark: timing 1000000 iterations of A, B...
         A: 11 wallclock secs ( 6.95 usr +  5.17 sys = 12.12 CPU) @ 82508.25/s (n=1000000)
         B: 12 wallclock secs ( 6.40 usr +  5.14 sys = 11.54 CPU) @ 86655.11/s (n=1000000)
#