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;
            }
        }
    }
}

perl中的秒表计时器

1 个答案: