http://www.perlmonks.org?node_id=35334


in reply to RE: RE: How can I keep track of the execution time of a script?
in thread How can I keep track of the execution time of a script?

If you're running this script in Windows you can use the Win32::GetTickCount to get the time in miliseconds I would do something like this: 
BEGIN {
  $ms = Win32::GetTickCount();
}

END {
  warn 'This script took ',Win32::GetTickCount() - $ms,'miliseconds';
}

[download]

Replies are listed 'Best First'.
RE: (4) How can I keep track of the execution time of a script?
by Adam (Vicar) on Oct 05, 2000 at 00:58 UTC
    This has several flaws. First, the tick count is not milliseconds. Second, that count could roll in the middle of your execution, yeilding a negative run time. (this happens roughly once a month) Also, it's OS dependant.

    I asked Sarcasmo what OS this was for, and the answer is Linux.

[reply]
      Yes, it *is* OS dependant, as I said on the first line of my reply. However you're wrong about the tick count, at least according to the Win32 manpage: 
      Win32::GetTickCount()
    [CORE] Returns the number of milliseconds elapsed since the last
    system boot. Resolution is limited to system timer ticks (about 10
+ms
    on WinNT and 55ms on Win9X).

      [download]
      Its resolution is limited, however it is in miliseconds.
[reply]
[d/l]

In Section Seekers of Perl Wisdom