Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

qedrakmar's scratchpad

by qedrakmar (Beadle)
on Jun 01, 2004 at 19:01 UTC ( #358400=scratchpad: print w/replies, xml ) Need Help??

Making sure my terminal is still connected, I use this:
#!/usr/bin/perl use strict; use warnings; my $now = time; while (1) { $now = time; if (($now % 5) == 0) { system "date"; while (($now % 5) == 0) { $now = time; } } }
But that eats a lot of system resources for something so simple...
#!/usr/bin/perl use strict; use warnings; my $seconds = 5; while (1) { my $time = localtime(); print $time, "\n"; sleep $seconds; }
is a lot more elegant... Thanks, jwest! "Sleep" was the big thing I was missing...
Log In?

What's my password?
Create A New User
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (2)
As of 2016-10-24 02:19 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (302 votes). Check out past polls.