Parent Directory | Revision Log
update all changes to (never released) verison 0.02 from http://www.semicomplete.com/svnweb/trunk/Term-Shelly/?pathrev=1301
1 | #!/usr/bin/perl |
2 | |
3 | use Term::Shelly; |
4 | |
5 | $sh = Term::Shelly->new(); |
6 | |
7 | $time = time(); |
8 | $end = time() + 15; |
9 | $count = 0; |
10 | |
11 | while (1) { |
12 | $sh->do_one_loop(); |
13 | if ($time < time()) { |
14 | $count++; |
15 | $time = time(); |
16 | $sh->prompt(sprintf("Download: %.2f", $count / 15) . "% >"); |
17 | exit if ($time == $end); |
18 | } |
19 | } |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |