frei

旧「anney's room」からブログ「frei」だけ引っ越し&残しました

さらに些細な違いで。

幼稚な実験、パート4(笑)

main

#/usr/bin/perl -w

use Time::HiRes;

my $checkTimes = $ARGV[1] =~ /^[0-9]+$/ ? $ARGV[1] : 100;

my $timecheck = Time::HiRes::time;

my $allData = "";

my %hashData = (

"a" => 1,

"b" => 2,

"c" => 3,

"d" => 4,

"e" => 5

);

for (1..$checkTimes) {

実験パターン

}

print Time::HiRes::time - $timecheck."\n";

exit;

パターン1

$allData .= "$hashData{c}\n";

パターン2

$allData .= $hashData{c}."\n";

パターン3

$allData .= $hashData{'c'}."\n";

これを$checkTimesを100にして

交互に呼び出すのを100回やって平均値を出したら…

■パターン1

 0.000171947

■パターン2

 0.000175407

■パターン3

 0.000175407

…結果、パターン1が速かったのでした。

へぇ….(ドット)で繋げたりすると、わずかに時間くうのかしら?

本当はハッシュのキー名を、シングルクォーテーションでくくった場合と

そうでない場合の違いを測定しようかと思ったら

そこは全く同じ数値になってしもた。