countdown

20051230 9:53 by javier

This small script is an alternative to sleep(1) that gives a visual clue to the user about the remaining seconds in the delay

#!/usr/bin/perl
$|++;

my $secs = shift;
die(“Usage: $0 <secs>\n“) unless (defined $secs) && ($secs>=0);
while($secs>0) {
printf(“\r% 4d”, $secs);
sleep 1;
–$secs;
}
print “Done \n“;

(Download)
There are numerous instances where you might want your shell scripts to sleep(1) giving the user a clue about what’s going on, but just to relate to a previous example, let’s see how this can be used to throttle file leeching:

$ for i in `count 1 10 %02d`; do wget http://…./file-$i.pdf; countdown 30; done

This entry was posted on Friday, December 30th, 2005 at 9:53 and is filed under Code, General, Perl. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

Now Reading

Planned books:

No Me Cogereis Vivo by Arturo Perez-Reverte
The Colossal Book of Mathematics by Martin Gardner
Final Impact (The Axis of Time) by John Birmingham

Current books:

Hellboy: Casos insolitos/ Hellboy: Odd Jobs (Hellboy)/ Spanish Edition by Mike Mignola
Perl Best Practices by Damian Conway
Designated Targets by John Birmingham

Recent books:

Weapons of Choice (The Axis of Time Trilogy, Book 1) by John Birmingham
Microserfs by Douglas Coupland
Baby Signs: How to Talk with Your Baby Before Your Baby Can Talk, New Edition by Linda Acredolo
Freakonomics by Steven D. Levitt
Ticktock by Dean Koontz