Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

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 wandering the Monastery: (4)
As of 2015-11-26 23:16 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (709 votes), past polls