perl - 如何在 Perl 中实现秒表计时器

Question

您好我想使用 Perl 实现并以毫秒为单位显示秒表计时器。

假设我想在Windows XP中采用这种格式HH:MIN:SECS:MILLISECS。

我尝试使用 Perl TK。我有一个开始和停止按钮。当我按下开始按钮时，秒表计时器应启动并以上述格式显示。通过按下停止按钮，它必须停止。

我从谷歌搜索了一些示例代码，但我没有得到毫秒格式：
（3 位分辨率）即 1:23:45:678

谁能帮帮我吗。

Answer 1

这是您问题的部分解决方案 - 使用 TK 的秒表 - http://www.perlmonks.org/?node_id=897958

附加的代码（不幸的是未经测试）将帮助您以所需的格式显示时间。

use strict;
use warnings;

use Time::HiRes qw(gettimeofday tv_interval usleep); 

my ($hrs, $mins, $secs, $mils) = (0, 0, 0, 0);

for my $h (0..23) {
    for my $m (0..59) {
        for my $s (0..59) {
            for my $ms (0..999) {
                print "$h:$m:$s:$ms\n";
                usleep(1000);
                $ms += 0.001;
            }
        }
    }
}