如何獲得Perl程序的執行時間？

Question

如果我停止執行，我該如何獲得執行時間？示例我運行我的perl腳本，然後按終端快捷鍵CTRL + C或CTRL + Z停止它，然後發佈執行時間。這是可能的或不可以？

Answer 1

在Linux上，您可以使用program time來獲取執行時間。只要把它加到你的Perl腳本就可以了。

$ cat foo.pl 
1 while 1; 
$ time perl foo.pl 
^C 
real 0m1.006s 
user 0m0.756s 
sys 0m0.008s 

當然這不限於Perl程序。它適用於任何程序。

Answer 2

Perl有一個名爲：$^T的內置變量，它是程序的開始時間。

注意 - 在Unix CTRL-Z停止過程（SIGSTP）（可續），其中CTRL-C導致其退出。 （SIGINT）

添加處理程序SIGINT會是這樣的。

$SIG{'INT'} = sub { warn "Start time: $^T\n, Run time:".(time() - $^T)."\n" }; 

注意 - 這實際上不會彈了出來你的程序的任何更多的 - 如果你這樣做，你應該die爲好，否則程序會做一個Ctrl-C意想不到的事情（如不退出 - 但沒關係，如果它放棄「當前操作」）

所以通常你會勾其他信號之一，像SIGUSR1或SIGUSR2這是明確的用戶自定義功能。 （您可以然後kill -USR1 <pid>）

#!/usr/bin/env perl 
use strict; 
use warnings; 

$SIG{'INT'} = sub { warn "Started at $^T, runtime ".(time() - $^T)."\n"; die }; 
$SIG{'USR1'} = sub { warn "Started at $^T, runtime ".(time() - $^T)."\n"; 
        warn "Program continuing\n"; }; 

while (1) { 
    sleep 1; 
}