секундомер таймер в PERL

Question

Привет Я хотел бы реализовать и отображать хронометр в миллисекундах с помощью Perl
Say я хотел бы в этом формате HH: MIN: Секунды: миллисекунды .. в окна хр ..
Я попытался использовать Perl TK .. У меня есть кнопка запуска и остановки. Когда я нажимаю кнопку запуска, кнопка остановки секундомера должна начинаться и отображаться в указанном выше формате, а нажатием кнопки остановки она должна останавливаться.

Я искал некоторые примеры кодов из Google, но я не получаю в формате миллисекунды (разрешение 3 цифры) т.е. 1:. 23: 45: 678 Может кто-нибудь, пожалуйста, помогите то же самое.

Answer 1

Вот частичное решение вашей проблемы - Секундомер с использованием ТЗА - 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; 
      } 
     } 
    } 
}