Perl模仿Wget下载进度条

sxw · 发表于 2011-6-13 23:40:18

看到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:14

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

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

sxw · 发表于 2011-6-14 00:40:21

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

523066680 · 发表于 2011-6-17 18:30:05

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

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

		自动登录	找回密码
密码			注册

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

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

浏览过的版块