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;
}

[download]

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.

In reply to Re: Uptime with Win32::GetTickCount() by guha
in thread Uptime with Win32::GetTickCount() by BioHazard

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.