Perlで処理時間を計測

投稿日時: 投稿者:

Perlで処理時間を計測する方法にはいろいろあるのでしょうが、とりあえず下記のプログラムでできそうです。秒数を計算しているので、精度を変更したり、結果表示を変更したい場合は、微調整が必要です。

$ cat time.pl 
#!/usr/bin/perl

my $startTime = time;
my $time1 = localtime(time);
print $time1;
print "\n";
my $time2 = localtime(time);
print $time2;
print "\n";

sleep 3;
my $stopTime = time;
print $stopTime - $startTime;
print "\n";