[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[原创代码] Perl模仿Wget下载进度条

看到Wget下载工具的进度条挺cool的,就想用Perl来模仿下,折腾了半天,捣鼓出来这么一丑陋的东西
  1. #usr/bin/perl
  2. $|=1;
  3. $n=1;
  4. $y=1024;
  5. $x=100;
  6. $num=2012;
  7. $a=int rand(10);
  8. while ($n<41) {
  9. printf "%3d",$n*2.5;
  10. print "%","["."=" x $n . ">"." " x (40-$n) ."]"."  ", $num+$a ," $random K/s" ,"  ETA 00:0$a","\b" x 100;
  11. $n++;
  12. $num+=10;
  13. $a=int rand(10);
  14. $random = int( rand( $y-$x+1 ) ) + $x;
  15. system("ping /n 2 127.0.0.1>nul");
  16. }
复制代码
#经batman版主提醒修改了一下,还是感觉太丑了

4# 523066680
还是版主简洁又给力,又学到了一个知识点,哈哈!

TOP

本帖最后由 523066680 于 2011-6-17 18:42 编辑

=。=  此时无聊胜有聊
win32 perl5.1

foreach $i (1..50) {
        print "\r"."="x$i .">" ;
        system("ping -n 1 127.0.0.1>nul");
}
<STDIN>;

TOP

2# batman
下载速度最应该是随机数,哈哈,版主说的是。
Ps:版主恩谦虚了

TOP

从代码上来看,随机得不是很彻底,至少出现了1024k/s的常量。。。

ps:perl门外汉只能悄悄路过。。。
***共同提高***

TOP

返回列表