Chinaunix首页 | 论坛 | 博客
  • 博客访问: 39159
  • 博文数量: 14
  • 博客积分: 440
  • 博客等级: 下士
  • 技术积分: 145
  • 用 户 组: 普通用户
  • 注册时间: 2009-12-07 16:22
文章分类

全部博文(14)

文章存档

2011年(14)

我的朋友
最近访客

分类: Python/Ruby

2011-04-09 14:08:41

#!/usr/bin/perl -w
 $n = 27;
for($i=1;$i<=$n;$i++){
 proc_bar($i,$n);
select(undef, undef, undef, 0.2);
}
print "\n";
sub proc_bar{
local $| = 1;
my $i = $_[0] || return 0;
my $n = $_[1] || return 0;
 print "\r33[36m[33[33m".("|" x int(($i/$n)*50)). (" " x (50 - int(($i/$n)*50)))."33[36m]"; printf("%2.1f%%33[0m",$i/$n*100);
local $| = 0;
}

阅读(1433) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~