Tag Archives: 彩色

11月 29

在Perl中使用Term::ANSIColor模块控制颜色的三种方法

Posted on by

  • 方法一

Term::ANSIColor的函数color有以下参数：
clear, reset, dark, bold, underline, underscore, blink, reverse, concealed, black, red, green, yellow, blue, magenta, cyan, white, on_black, on_red, on_green, on_yellow, on_blue, on_magenta, on_cyan, and on_white

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

#!/usr/bin/perl
 
use Term::ANSIColor;
 
print color "red";
print "REDn";
print color "green";
print "GREENn";
print color "bold blue";
print "BOLD BLUEn";
print color "on_yellow";
print "ON YELLOWn";
print color "on_cyan";
print "ON CYANn";
print color "reset";

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 →

    5月 16

    Shell与Perl中的颜色控制

    Posted on by

    1.控制码
    e[0m 关闭所有属性
    e[1m 设置高亮度
    e[4m 下划线
    e[5m 闪烁
    e[7m 反显
    e[8m 消隐
    e[30m–33[37m 设置前景色
    e[40m–33[47m 设置背景色
    e[nA 光标上移n行
    e[nB 光标下移n行
    e[nC 光标右移n行
    e[nD 光标左移n行
    e[y;xH 设置光标位置
    e[2J 清屏
    e[K 清除从光标到行尾的内容
    e[s 保存光标位置
    e[u 恢复光标位置
    e[?25l 隐藏光标
    e[?25h 显示光标
    Continue reading →