Perl小ネタ

ミリ秒を求める

Time::HiRes::gettimeofdayを使う。

use Time::HiRes;
$now = Time::HiRes::time;
($seconds, $microseconds) = Time::HiRes::gettimeofday;

UNIX_TIMESTAMPがミリ秒単位でわかる。

参考

• ミリ秒を求める Script Source Sample for Perl

wantarray

実行中のサブルーチンの戻り値として、リストが要求されている場合に真を返し、スカラーが要求されている場合には偽を返す。

参考

• wantarray