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

Popular posts from this blog

java - Play! framework 2.0: How to display multiple image? -

gmail - Is there any documentation for read-only access to the Google Contacts API? -

php - Controller/JToolBar not working in Joomla 2.5 -