stopwatch timer in perl -
hi implement , display stopwatch timer in milliseconds using perl
in format hh:min:secs:millisecs.. in windows xp..
tried using perl tk.. have start buton , stop button .. when press start button stop watch timer should start , display in above format , pressing stop button has stop.
i searched sample codes google not getting in millisecs format.(3 digit resolution) ie 1:23:45:678 can please same.
here partial solution problem - stopwatch using tk - http://www.perlmonks.org/?node_id=897958
the annexed code (unfortunately untested) display time in desired format.
use strict; use warnings; use time::hires qw(gettimeofday tv_interval usleep); ($hrs, $mins, $secs, $mils) = (0, 0, 0, 0); $h (0..23) { $m (0..59) { $s (0..59) { $ms (0..999) { print "$h:$m:$s:$ms\n"; usleep(1000); $ms += 0.001; } } } }
Comments
Post a Comment