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

sxw

看到Wget下载工具的进度条挺cool的，就想用Perl来模仿下，折腾了半天，捣鼓出来这么一丑陋的东西

#usr/bin/perl
$|=1;
$n=1;
$y=1024;
$x=100;
$num=2012;
$a=int rand(10);
while ($n<41) {
printf "%3d",$n*2.5;
print "%","["."=" x $n . ">"." " x (40-$n) ."]"."  ", $num+$a ," $random K/s" ,"  ETA 00:0$a","\b" x 100;
$n++;
$num+=10;
$a=int rand(10);
$random = int( rand( $y-$x+1 ) ) + $x;
system("ping /n 2 127.0.0.1>nul");
}
复制代码

#经batman版主提醒修改了一下，还是感觉太丑了

batman

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

ps:perl门外汉只能悄悄路过。。。

sxw

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

523066680

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

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

sxw

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