JDBな人生  専門的なことから日常的なことまで~ まぁ自由きままに書いていきます。
2017年05月 / 04月<< 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 >>06月

アクセスランキング

[ジャンルランキング]
コンピュータ
387位
アクセスランキングを見る>>

[サブジャンルランキング]
プログラミング
42位
アクセスランキングを見る>>

処理の所要時間を測る

昨日、今日とMySQLと格闘しています。
だいぶ慣れてきましたが、自分でCSVファイル作って管理するのと比べたら、MySQLってかなり便利ですよね。
面倒なファイル操作(特に排他処理)や文字列の分解・結合などをしなくても、全部DBサーバーがやってくれるので。

まあそんな話は置いといて、今回の記事ではPerlで処理の所要時間を取得する方法を紹介します。
(別に方法がこれだけってことは無いと思いますが)

use Time::HiRes qw(gettimeofday tv_interval);
my $t0 = [gettimeofday];

#処理
for($i=0;$i<9999999;$i++){}

#結果(この場合「0.721041」)
$timer = tv_interval($t0);

「my $t0 = [gettimeofday];」と「$timer = tv_interval($t0);」の間の所要時間を取得できます。
単位は秒です。

因みに自分はこれを検索処理の結果表示に入れてみました。
(Googleライクになりました)
 


 
   Perl    TB(0)    CM(0)    EDIT    ページ↑

コメント投稿


 管理者だけに表示

コメント

トラックバック

この記事へのトラックバック:

プロフィール

JDB Luigi

Author:JDB Luigi
どこにでもいるようなありふれた人間・・・という訳でもなく、かと言って怪しい宗教を信仰する変人という訳でも無い。

基本的に掲載しているコード等は煮ていただいても焼いていただいても結構ですが、利用は自己責任にてお願いいします。
また、バグ・アドバイス等もしあればよろしくお願いします。