[原创代码] 来个Perl版的彩色逐字显示

sxw

这样的特效代码不能创造价值，虽然赏心悦目，却是没用的
转换成exe，放外链了 http://pan.baidu.com/share/link?shareid=571467&uk=3642172007

use Win32::Console;
use Encode;

use Win32::Console::ANSI;
use Term::ANSIColor;
my @color    = qw( red  green  yellow  blue  magenta  cyan  white 
                   bright_black  bright_red  bright_green  bright_yellow 
				   bright_blue   bright_magenta  bright_cyan   bright_white ansi0);


$|=1; #必须开启这个
system("mode con cols=135 lines=25");
my $Out = new Win32::Console(STD_OUTPUT_HANDLE) || die; 
my ( $x, $y ) = $Out->Cursor();
$Out->Cursor( $x+125, $y + 5,0,0);

while (<DATA>) {
  s/ /　/g;
  chomp;
  $a=decode('gb2312',$_);
  @words=$a=~m/(.)/g;
  

  foreach $word (@words) {  
         $c = $color[int rand @color];
		 print color 'bold '.$c;
         $Out->Write(encode('gb2312',$word));
         my ( $x, $y ) = $Out->Cursor();
         $Out->Cursor( $x, $y + 1,0,0);

         my ( $x, $y ) = $Out->Cursor();
         $Out->Cursor( $x-2, $y,0,0);
         select(undef,undef,undef,0.045);
         }

my ( $x, $y ) = $Out->Cursor();
$Out->Cursor( $x-2, $y-@words,0,0);
}
<>;
__DATA__
　　　　星月神话
我的一生最美好的场景
　
就是遇见你
　
在人海茫茫中静静凝望着你
　
陌生又熟悉
　
尽管呼吸着同一天空的气息
　
却无法拥抱到你
　
如果转换了时空身份和姓名
　　　
但愿认得你眼睛
　
千年之后的你会在哪里
　
身边有怎样风景
　
我们的故事并不算美丽
　
却如此难以忘记
　 
尽管呼吸着同一天空的气息
　
却无法拥抱到你
　 
如果转换了时空身份和姓名
　
但愿认得你眼睛
　
千年之后的你会在哪里
　
身边有怎样风景
　
我们的故事并不算美丽
　
却如此难以忘记
　
如果当初勇敢的在一起
　 
会不会不同结局
　
你会不会也有千言万语
　
埋在沉默的梦里
复制代码