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 | dpavlin | 5 | #!/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 |