發信人[email protected] (風的孩子),
看板asciiart
標 題[Perl]ASCII動畫Player
發信站風中 (Thu Nov 20 17:50:02 1997)
轉信站Ptt!netnews.ntu!news.nia!news!news.ncu!news.yzit!aidebbs!netnews.csie.
[ Article crossposted from tw.bbs.comp.lang.perl ]
[ Author was 風的孩子 ]
[ Posted on 20 Nov 1997 09:47:05 GMT ]
!!!首先先恭喜tw.bbs.comp.lang.perl終於誕生了!!!!
常常逛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++;
}
----------------------------------------------------------------------------
--
________ || |||||| ||
/ . . . .\ [=========] [=========]
|__________| | * * | | m m m m |
============ | * * * | | m m m |
|__________| [=======] [=======]
****** 愛睡覺的小孩最健康 ******
--
◢▌◣
█▍◥ ----------------------
◥▋ 溝通人間情‧連接世界心
◥▎◢ ----------------------