camel

Perl 5.8鐃淑降では￥申鐃緒申鐃塾よう鐃淑常申鐃緒申in-memory file鐃緒申鐃夙わ申鐃殉わ申鐃緒申

鐃緒申続鐃循わ申呂鐃� Perl 鐃熟ワ申鐃緒申鐃緒申鐃緒申文鐃緒申譟ｏ申如鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋� :: Drk7jp
鐃縦Ｂ常申鐃緒申鐃緒申譽鰹申鐃緒申匹鬚い辰鐃緒申鐃� perl 側鐃緒申鐃緒申鐃緒申乏鐃叔種申鐃緒申董鐃緒申鐃緒申侶鐃縮わ申鐃瞬わ申鐃緒申鐃獣てワ申鐃緒申鐃宿なのでわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃淑わ申鐃緒申譽鰹申鐃緒申豹鐃緒申鐃渋随申鐃緒申覆鐃出ワ申鐃緒申鮨�わ申鐃塾わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃淑のでわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾居申鐃緒申鐃緒申鐃緒申鐃銃わ申鐃緒申鐃緒申忘鐃術わ申鐃銃まわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃祝わ申鐃緒申箸鐃緒申蠅�鐃緒申鐃緒申里任鐃緒申鐃�

鐃夙わ申鐃緒申鐃熟￥申鐃緒申単鐃叔わ申鐃緒申

my @array = (0x21..0x7e);
my $memfile;

open my $wfh, '>', \$memfile or die $!;
print $wfh chr($_), "\n" for (@array);
close $wfh;

open my $rfh, '<', \$memfile or die $!;
print while(<$rfh>);
close $wfh;

鐃盾しarray鐃緒申鐃緒申鐃銃わ申sequential鐃祝わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃淑わ申鐃塾でわ申鐃緒申弌鐃緒申鐃緒申鐃緒申鐃祝￥申之鐃重�鐃祝ワ申鐃所ー鐃緒申鐃緒申鐃縮を減らせ鐃殉わ申鐃緒申

# 鐃緒申鐃�code鐃緒申append
use Devel::Size::Report qw/report_size/;
print report_size \@array;
print report_size \$memfile;

Size report v0.10 for 'ARRAY(0x181832c)':
  Array ref 1948 bytes (overhead: 444 bytes, 22.79%)
    Scalar 16 bytes
    Scalar 16 bytes
鐃緒申鐃緒申....
Total: 1948 bytes in 95 elements
Size report v0.10 for 'SCALAR(0x1801b1c)':
  Scalar Ref 228 bytes (overhead: 16 bytes, 7.02%)
    Scalar 212 bytes
Total: 228 bytes in 2 elements

鐃緒申鐃緒申鐃緒申鵝△鐃緒申里鐃緒申鐃緒申鐃叔わ申speed鐃夙わ申trade-off鐃熟わ申鐃緒申泙鐃緒申鐃�

#!/usr/local/bin/perl
use strict;
use warnings;
use Benchmark qw/timethese cmpthese/;

cmpthese(timethese(
        0, {
            array => sub {
                my @array = ();
                push @array, $_ for ( 0 .. 0xff );
                for ( 0 .. 0xff ) {
                    $array[$_] != $_ and die;
                }
            },
            memfile => sub {
                my $memfile = '';
                open my $wfh, '>', \$memfile or die;
                print $wfh $_, "\n" for ( 0 .. 0xff );
                close $wfh;
                open my $rfh, '<', \$memfile or die;
                for ( 0 .. 0xff ) {
                    my $line = <$rfh>;
                    $_ == $line or die;
                }
                close $rfh;
              }
          }
));
__END__
MacBook Pro 2.0GHz 鐃叔の件申鐃�: 
Benchmark: running array, memfile for at least 3 CPU seconds...
     array:  4 wallclock secs ( 3.13 usr +  0.01 sys =  3.14 CPU) @ 7003.82/s (n=21992)
   memfile:  4 wallclock secs ( 3.18 usr +  0.01 sys =  3.19 CPU) @ 2334.80/s (n=7448)
          Rate memfile   array
memfile 2335/s      --    -67%
array   7004/s    200%      --

速鐃駿わ申1/3鐃祝なわ申泙鐃緒申鐃緒申鐃緒申鐃緒申蝓種申鐃塾�鐃熟ｏ申鐃旬￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃淑わ申鐃夙思わ申鐃殉わ申鐃緒申鐃殉わ申鐃銃わ申swap鐃淑どのわ申鐃夙わ申佑鐃緒申鐃出￥申

鐃淑常申楼鐃峻逸申譽鰹申鐃緒申匹両鐃緒申任鐃緒申鐃緒申鐃緒申鐃緒申鐃縦刻申両鐃緒申呂鐃緒申鐃緒申efficient鐃祝緒申鐃緒申泙鐃緒申鐃緒申磴�鐃出￥申鐃曙コ鐃緒申鐃宿わ申鐃緒申鐃駿わ申Unsigned Long鐃叔わ申鐃暑こ鐃夙わ申鐃緒か鐃獣てわ申鐃緒申弌鐃�

open my $wfh, '>', \$memfile or die $!;
print $wfh pack("N", $_) for (@array);
close $wfh;

open my $rfh, '<', \$memfile or die $!;
print unpack("N", $_), "\n" while(read($rfh, $_, 4));
close $wfh;

鐃塾よう鐃祝緒申鐃緒申泙鐃緒申鐃�

鐃緒申鐃緒申鐃夙っわ申Wrapper Class鐃緒申鐃獣わ申鐃緒申Tie::Array::Whatever鐃盾ジ鐃遵ー鐃緒申鐃緒申鐃塾わ申Trivial鐃叔わ申鐃順う鐃緒申

鐃叔醐申法鐃緒申鐃緒申鐃緒申鐃叔緒申砲鐃緒申討鐃緒申譴随申鐃緒申鐃祝器申鐃�Nick Ing-Simmons鐃祝器申鐃春わ申鐃縦わ申鐃緒申entry鐃緒申submit鐃緒申鐃殉わ申鐃緒申

Dan the Just Another PerlIO Hacker