ASCIIArt 版 (精华区)

发信人: wugang (◆◆King◆◆), 信区: ASCIIArt
标  题: [转载] ◇ ASCII 动画 Player
发信站: 哈工大紫丁香 (Sun Aug  1 10:28:36 1999), 转信

发信人: spiceboy (好好学习，天天向上), 信区: ASCIIart
发信站: BBS 水木清华站 (Sun Jul  5 01:05:55 1998)

发信人: STW (蓝快), 信区: SaveName
标  题: ASCII 动画 Player
发信站: 广州蓝天站 (Sat Mar  7 18:29:57 1998), 转信
[转贴]

常常逛asciiart板的人一定知道.....
我们常常在板上可以看到一些"按住空白键"的ASCII的动画....
可是每次都要按空白键好烦喔!!!! 所以我想了一个点子....
就是"ASCII动画Player".....嘿嘿~~~用Perl一下就写出来了!!!
名字叫asciiplay.pl记得chmod +x才能执行喔~~~~
使用法: asciiplay.pl 100 18x
                     ^^^ ^^^
                     (1) (2)

         (1)是播放速度.....(2)就是要播放的档案....

再来就是好好欣赏吧~~~~不过呢~~~从bbs站上抓下来的动画文字档最好要
先编辑一下喔~~~~还有一个玩法就是asciiplay.pl 0 18x > 18xx
然後再cat 18xx就会以最快速度播放!!!
这个程式的原理是用ANSI控制码.....先看看script吧....
----------------------------------------------------------------------------
#!/usr/local/bin/perl


$SPEED = $ARGV[0];
$NAME = $ARGV[1];

open(XXX,"<$NAME") || die"cannot open $NAME !!\n";

$line=0;
printf "%c[2J",27;              #控制码=>清萤幕

while(<XXX>)
{
        if( ($line % 22)==0)
        {
                for($j=0;$j<$SPEED;$j++) { }
                printf "%c[1;1H",27;            #这是控制码把游标移到(1,1)
        }
        print;
        $line++;
}
----------------------------------------------------------------------------


--

             就到这里吧, 休息, 休息一会儿.
                                              ---- SPICEBOY 为您特别报导

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: KIng1999.bbs@bbs.net]