2013-10-10から1日間の記事一覧

Perl - アクセッサ

sub field { shift->{field} } sub field { $_[0]->{field} } のどちらの方が速いのかはかってみたら、 shift の方が速かった。完全に逆だと思ってた。 #!/usr/bin/env perl use strict; use warnings; use Benchmark qw(cmpthese); package Dummy { sub new…