converting milliseconds back to time 1

[sapatos]

My programme scans a series of files which contain the following time data:

hr:mi:ss:milsec
line 1=00:14:42:321
line 2=00:00:08:313
line 3=00:00:33:766

I have broken this down to milliseconds in order to calculate various avg/mode/std deviation etc.

line 1=882321
line 2=8313
line 3=33766

I want to return this to the original format for display purposed but I'm having difficulties. Can anyone suggest a method for this? i'm unable to use modules ;(

 

[prex1]

sub msec_format{
  use integer;
  my($sec,$min,$hr);
  my($msec)=@_;
  $sec=$msec/1000;
  $msec-=$sec*1000;
  $min=$sec/60;
  $sec-=$min*60;
  $hr=$min/60;
  $min-=$hr*60;
  return sprintf("%02d:%02d:%02d:%03d",$hr,$min,$sec,$msec);
}

Franco

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[sapatos]

thanks franco, thats definitely one for the toolbox