perlスクリプトの処理時間 use Time::HiRes; my $start_time = Time::HiRes::time; ##################### # 処理 ##################### #処理時間を表示 printf("%0.3f",Time::HiRes::time - $start_time);