I put it in a simple sub. Easy to adjust if you want to include additional parameters such as a pre or post message.
countdown(10);
sub countdown($) {
#countdown(seconds);
my ($duration) = @_;
my $end_time = time + $duration;
my $time = time;
while ($time < $end_time) {
$time = time;
printf("\r%02d:%02d:%02d", ($end_time - $time) / (60*60), ($en
+d_time - $time) / (60) % 60,($end_time - $time) % 60); #00:00:10
$|++;
sleep 1;
}
}
countdown(10, "before", "after");
sub countdown($$$) {
#countdown(seconds, "premessage", "postmessage");
my ($duration, $premessage, $postmessage) = @_;
my $end_time = time + $duration;
my $time = time;
while ($time < $end_time) {
$time = time;
printf("\r%s %02d:%02d:%02d %s", $premessage, ($end_time - $ti
+me) / (60*60), ($end_time - $time) / (60) % 60,($end_time - $time) %
+60, $postmessage); #before 00:00:10 after
$|++;
sleep 1;
}
}
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.