PERL:十来行程序实现了类似MATRIX里面的酷的字符上翻

记得在看MATRIX《黑客帝国》时，里面有一段很酷的字符翻动的镜头。

不过电影里面的是一个纬度的上翻，我用PERL实现了两个纬度的变化，出现的字符是通过在一个固定集合里面随机抽取的。

嗯，可以用作很酷的屏幕保护程序。。。。

源码如下：

#!/usr/bin/perl -w

use strict;

my @char_array=(0..9,'a'..'z','A'..'Z','_','*','?','%','#','@','!',']','(','[','|','<','>');
my $SCOPE = $#char_array;

for (;;){
  my $rd_pos = int (rand 80); 
  my $rd_len = $rd_pos % 10 + 10;

  for (0..$rd_len){
   my $index = int (rand $SCOPE); 
    print " "x(abs(50 - $rd_pos)), $char_array[$index];
    print " "x$rd_pos, $char_array[$SCOPE - $index],"/n";
    sleep(.1);
  }
}

 

当然，运行的条件是WINDOW或者LINUX系统下安装有PERL的解释程序。