Re: Uptime with Win32::GetTickCount()

[guha]

In my previous post in this thread I assumed from your code snippet that you wanted the script to run more or less like a daemon and that you you would start the script in the boot process. Then brother BrowserUk objected that this was not necessarily the case.

For that case all use of Win32::GetTickCount won't work either, since you don't know how many 49 day wraps that has occurred already when you start the script.

On XP however I suggest the following solution, which is based on the fact that the file C:\windows\bootstat.dat is touched at bootup.

#!perl -w
use strict;

my $file = 'c:/windows/bootstat.dat';
-e $file or die "no $file";

my $boot_days_ago = -M $file;
my $boot_secs_ago = 86400 * $boot_days_ago;
my $boot_time = int ( time - $boot_secs_ago) ;

while(1) {
    my $t =  time-$boot_time;
    printf  "%4d h  %2d m\r", int($t/3600), int(($t%3600)/60);
    sleep 1;
}

On NT or Win2k systems however the said file does not exist but then the program Uptime from Microsoft can be useful.
The article describes some if's and but's on the issue.