Perl 動畫之星月神話

使用 Perl 來完成一則文字逐字顯示的動畫悴晰。

myth.gif
use Win32::Console;
use Encode;
use 5.010;
use AnyEvent;

 
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);


#my @color= map {'ansi'.$_} (0..15);
$|=1; #必須開啟這個
system("mode con cols=135 lines=25");
my $Out = new Win32::Console(STD_OUTPUT_HANDLE) || die;
my $cv = AnyEvent->condvar;
my $count=0;
my $w; $w = AnyEvent->timer(
        after       => 2, 
        interval => 1,
        cb => sub {
            $count++;
            
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,1);

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

my ( $x, $y ) = $Out->Cursor();
$Out->Cursor( $x-2, $y-@words,0,0);
}
            # system("cls");
            # say $count;
            seek(DATA,1565,0); # 句柄讀到最后了就沒有文本了嘴高,所以需要返回,其實DATA就是整個文件,是這個script的所有文本。
    
            if ($count >= 1) {
                undef $w; 
            }   
        }   
        );  
$cv->recv;
__END__




    星月神話
我的一生最美好的場景
 
就是遇見你
 
在人海茫茫中靜靜凝望著你
 
陌生又熟悉
 
盡管呼吸著同一天空的氣息

卻無法擁抱到你
 
如果轉換了時空身份和姓名
   
但愿認得你眼睛
 
千年之后的你會在哪里
 
身邊有怎樣風景
 
我們的故事并不算美麗
 
卻如此難以忘記
  
盡管呼吸著同一天空的氣息
 
卻無法擁抱到你
  
如果轉換了時空身份和姓名
 
但愿認得你眼睛
 
千年之后的你會在哪里
 
身邊有怎樣風景
 
我們的故事并不算美麗
 
卻如此難以忘記
 
如果當初勇敢的在一起
  
會不會不同結局
 
你會不會也有千言萬語
 
埋在沉默的夢里 
myth.png
最后編輯于
?著作權歸作者所有,轉載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子码秉,更是在濱河造成了極大的恐慌,老刑警劉巖鸡号,帶你破解...
    沈念sama閱讀 217,084評論 6 503
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件转砖,死亡現(xiàn)場離奇詭異,居然都是意外死亡鲸伴,警方通過查閱死者的電腦和手機府蔗,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,623評論 3 392
  • 文/潘曉璐 我一進店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來挑围,“玉大人礁竞,你說我怎么就攤上這事∩颊蓿” “怎么了模捂?”我有些...
    開封第一講書人閱讀 163,450評論 0 353
  • 文/不壞的土叔 我叫張陵,是天一觀的道長蜘矢。 經(jīng)常有香客問我狂男,道長,這世上最難降的妖魔是什么品腹? 我笑而不...
    開封第一講書人閱讀 58,322評論 1 293
  • 正文 為了忘掉前任岖食,我火速辦了婚禮,結果婚禮上舞吭,老公的妹妹穿的比我還像新娘泡垃。我一直安慰自己,他們只是感情好羡鸥,可當我...
    茶點故事閱讀 67,370評論 6 390
  • 文/花漫 我一把揭開白布蔑穴。 她就那樣靜靜地躺著,像睡著了一般惧浴。 火紅的嫁衣襯著肌膚如雪存和。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 51,274評論 1 300
  • 那天衷旅,我揣著相機與錄音救恨,去河邊找鬼较店。 笑死膳汪,一個胖子當著我的面吹牛渺贤,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播九串,決...
    沈念sama閱讀 40,126評論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼绞佩,長吁一口氣:“原來是場噩夢啊……” “哼寺鸥!你這毒婦竟也來了?” 一聲冷哼從身側響起品山,我...
    開封第一講書人閱讀 38,980評論 0 275
  • 序言:老撾萬榮一對情侶失蹤胆建,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后肘交,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體笆载,經(jīng)...
    沈念sama閱讀 45,414評論 1 313
  • 正文 獨居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,599評論 3 334
  • 正文 我和宋清朗相戀三年涯呻,在試婚紗的時候發(fā)現(xiàn)自己被綠了凉驻。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點故事閱讀 39,773評論 1 348
  • 序言:一個原本活蹦亂跳的男人離奇死亡复罐,死狀恐怖涝登,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情效诅,我是刑警寧澤胀滚,帶...
    沈念sama閱讀 35,470評論 5 344
  • 正文 年R本政府宣布,位于F島的核電站乱投,受9級特大地震影響咽笼,放射性物質發(fā)生泄漏。R本人自食惡果不足惜戚炫,卻給世界環(huán)境...
    茶點故事閱讀 41,080評論 3 327
  • 文/蒙蒙 一剑刑、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧双肤,春花似錦施掏、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,713評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至限匣,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間毁菱,已是汗流浹背米死。 一陣腳步聲響...
    開封第一講書人閱讀 32,852評論 1 269
  • 我被黑心中介騙來泰國打工, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留贮庞,地道東北人峦筒。 一個月前我還...
    沈念sama閱讀 47,865評論 2 370
  • 正文 我出身青樓,卻偏偏與公主長得像窗慎,于是被迫代替她去往敵國和親物喷。 傳聞我的和親對象是個殘疾皇子卤材,可洞房花燭夜當晚...
    茶點故事閱讀 44,689評論 2 354

推薦閱讀更多精彩內(nèi)容

  • Android 自定義View的各種姿勢1 Activity的顯示之ViewRootImpl詳解 Activity...
    passiontim閱讀 172,095評論 25 707
  • 發(fā)現(xiàn) 關注 消息 iOS 第三方庫、插件峦失、知名博客總結 作者大灰狼的小綿羊哥哥關注 2017.06.26 09:4...
    肇東周閱讀 12,098評論 4 62
  • This method is of no value in debugging memory management...
    終于閱讀 1,185評論 0 0
  • 安安靜靜地從內(nèi)心發(fā)出聲音 讓自己健健康康的 美美的滋養(yǎng)
    心源寶貝閱讀 267評論 0 0
  • 王琿推薦: 十幾年前做新華傳媒工場扇丛,邀請金惟純來演講。那個時候的我剛剛離開三聯(lián)尉辑,一心想要探尋雜志市場化的成功之道帆精。...
    十分心理閱讀 813評論 0 2