批处理之家 - Powered by Discuz! Board

标题: [原创代码] Perl模仿Wget下载进度条 [打印本页]

作者: sxw 时间: 2011-6-13 23:40 标题: Perl模仿Wget下载进度条

看到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 时间: 2011-6-14 00:18

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

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

作者: sxw 时间: 2011-6-14 00:40

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

作者: 523066680 时间: 2011-6-17 18:30

本帖最后由 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>;

作者: sxw 时间: 2011-6-17 21:20

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

欢迎光临批处理之家 (http://bbs.bathome.net/)