Tag Archives: 进度条

3月 16

命令行中复制移动时显示进度条

Posted on by

“世间最痛苦的事莫过于等待”，相信使用过Shell中cp或者mv命令操作大文件的朋友们都有这种感慨。要是能显示复制或者移动的进度，把无尽的等待变成有限的期待，那该多好呀！其实，确实有显示进度条的方法，而且方法还不止一种：

1
2
3
4
5
6
7
8
9
10
11
12
13

wget http://ftp.gnu.org/gnu/coreutils/coreutils-8.4.tar.gz
tar xvzf coreutils-8.4.tar.gz
cd coreutils-8.4/
wget http://beatex.org/web/advcopy/advcpmv-0.3-8.4.patch
patch -p1 -i advcpmv-0.3-8.4.patch
./configure
make
sudo cp src/cp /usr/local/bin/cpg
sudo cp src/mv /usr/local/bin/mvg
 
#vim ~/.bashrc
alias cpg="/usr/local/bin/cpg -g"
alias mvg="/usr/local/bin/mvg -g"

PS: An update is scheduled to be released in just three weeks, on March 24, 2012
Continue reading →

11月 29

在Shell脚本中显示进度条

Posted on by

注意：如果你使用的是Ubuntu，第一行中的程序路径一定要写/bin/bash而不是/bin/sh；其他版本的两者皆可，因为/bin/sh只是/bin/bash的一个软链接；在Ubuntu中/bin/sh是/bin/dash的软链接。

  • 方法一

    • 1
2
3
4
5
6
7
8
9
10

    #!/bin/bash
 
b=''
for ((i=0;$i<=100;i+=2))
do
       printf "progress:[%-50s]%d%%r" $b $i
       sleep 0.1
       b=#$b
done
echo

    Continue reading →

11月 29

在Perl程序中显示进度条之多姿多彩的自写代码

Posted on by

  • 方法一

1
2
3
4
5
6
7
8

#!/usr/bin/perl
 
my $max = 10;
for ( 1 .. $max ) {
   my $percent = $_ / $max * 100;
   print "$_ - $percent % OK!n";
   sleep(1);
}

  • 方法二

    • 从“…..”的长度来判断进度。

    1
2
3
4
5
6
7
8
9

    #!/usr/bin/perl -w
 
$| = 1;
my $max = 10;
for ( 1 .. $max ) {
   print ".";
   print " Complete!n" if ( $_ == $max );
   sleep(1);
}

    • 方法三

    用滚轮在原地显示进度，当然也可以加入百分比。

    1
2
3
4
5
6
7
8
9
10
11
12

    #!/usr/bin/perl -w
 
local $| = 1;
my @progress_symbol = ( '-', '', '|', '/' );
my $n = 0;
for ( my $i = 1 ; $i <= 100 ; $i++ ) {
   print "r $progress_symbol[$n] $i";
   $n = ( $n 》= 3 ) ? 0 : $n + 1;
   select( undef, undef, undef, 0.1 );
}
print "n";
local $| = 0;

    Continue reading →

    11月 29

    在Perl程序中显示进度条之使用Term::ProgressBar模块

    Posted on by

    • A really simple use

      • 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

      #!/usr/bin/perl -w
 
use Term::ProgressBar 2.00;
use constant MAX =》 100_0000;
 
my $progress = Term::ProgressBar-》new(MAX);
 
for ( 0 .. MAX ) {
   my $is_power = 0;
   for ( my $i = 0 ; 2**$i 《= $_ ; $i++ ) {
       $is_power = 1
         if 2**$i == $_;
   }
 
   if ($is_power) {
       $progress-》update($_);
   }
}

    • A smoother bar update

      • 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

      #!/usr/bin/perl -w
 
use Term::ProgressBar 2.00;
 
my $max = 100000;
 
my $progress = Term::ProgressBar-》new($max);
 
for ( 0 .. $max ) {
   my $is_power = 0;
   for ( my $i = 0 ; 2**$i 《= $_ ; $i++ ) {
       $is_power = 1
         if 2**$i == $_;
   }
 
   $progress-》update($_);
}

      Continue reading →