今日覚えたことをメモっておけ (155ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

21(1): 名無しさん＠お腹いっぱい。 02/01/05 14:26 ID:??? AAS
>>19
それだと殆どimportの時間を計るだけじゃん。
%INCをクリアしないと。

#!/usr/local/bin/perl
use Benchmark;
use Getopt::Std;
use strict;

getopts('ic:' => \my %opt);

my $count = ($opt{c} - 0) || 100;

foreach (@ARGV) {
unless(eval "require $_"){
$@ =~ s/at .*?\n$//;
warn $@, "\n";
next;
}
print "$_ version ", ($_->VERSION || '(unknown)'), "\n";

timethis($count,
qq{%INC=();require $_;}
. ($opt{i} ? qq{$_->import;} : "")
);
}
__END__

---

23: 名無しさん＠お腹いっぱい。 02/01/05 15:20 ID:??? AAS
>>21
すっかり忘れてた。
ありがと、参考にしますわ。

pmbench -i CGI IO::File FileHandle English の結果。
CGI version 2.46
　timethis 100: 17 wallclock secs (16.85 usr + 0.59 sys = 17.44 CPU)
IO::File version 1.06021
　timethis 100: 27 wallclock secs (25.16 usr + 1.02 sys = 26.18 CPU)
FileHandle version 2.00
　timethis 100: 29 wallclock secs (27.68 usr + 0.88 sys = 28.55 CPU)
English version (unknown)
　timethis 100: 6 wallclock secs ( 5.88 usr + 0.20 sys = 6.07 CPU)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.227s*