Acme::Tsu

tag perl acme

こんにちは、hide_o_55です。
みなさんアクメで思い浮かべるものは何でしょうか?
そうです、アクメツですね。
ということで名前だけ思いついて、勢いで作ったAcme::Tsuを紹介させて頂きます。
あ、ちなみにこれが僕の初Acmeです。

まず、インストール。

git clone git://github.com/hideo55/p5-Acme-Tsu.git
cd p5-Acme-Tsu
perl Makefile.PL
make && make install

次に使い方

use Acme::Tsu;

print "Hello world\n";

これだけです。
これでどうなるかというと、Acme::Tsuをuseしたスクリプトがアクメツになります。
こんな感じです↓

$ perl helloworld.pl
$ cat helloworld.pl
use Acme::Tsu;

  (                                                          (  
 '')                                                        )=~ 
 (((                                                        '(' 
 )).+                                                      '?'. 
'{'.(                                                      "\`"|
'%').(                                                    ('[')^
"\-").(                                                  '`'|'!'
).('`'|                                                  (',')).
 ('"').(                                                '!'^'+' 
 ).("\["^                                              ('+')).( 
  '['^')')                                            .(('`')|  
   (')')).(                                        (  ('`'))|   
    ('.')).(  (                                   (  "\["))^    
      "\/").(  (                                '{')^'[').      
       '\\'."\"".(                            '`'^"\(").(       
         '`'|('%')).(                      '`'|(',')).(         
           '`'|',').('`'                |'/').('{'^'['          
            ).('['^    ((              ','   ))).''.            
             (('`')|     ((    ((     (      '/') )             
            )) )).''.         ('['^        ')').(  (            
             '`')|',').('`'|'$').'\\'.'\\'.('`'|'.'             
             ).'\\'.'"'.';'.('!'^'+').'"'.'}'."\)");            
            $:='.'^'~';$~='@'|'(';$^=')'^'[';$/="\`"|           
          '.';$,='('^'}' ;$\='`'|'!';$:  =')'^"\}";$~=          
         '*'|'`'     ;(         (         $^     ))='+'         
         ^'_'        ;                    (         $/)=        
          ((          (    '&')))|'@'    ;           $,         
           =           '['&'~';$\=','^'|'            ;          
                          $:='.'^'~';$~                         
                          ='@'|'(';$^=                          
                          ((         ((                         
                       ')')) ))^'['; ($/)                       
                         ='`'|'.';$,='('                        
                             ^'}';$\                            
                               =((                              
                               '`'                              
                                )                               
                                )                                

これを再び実行すると、以下のようになります。

$ perl helloworld.pl
Hello world

Acmeモジュールに造詣の深い諸兄ならばお分かりになると思いますが、これはAcme::EyeDropsAcme::Bleachに代表されるソース書き換えテクニックの合せ技です。

Acmeモジュールは黒魔術的なものを学ぶには最高の教材ですので、みなさんも是非 Acme モジュールで遊んでみて下さい。
Enjoy Acme life!

明日は、Win32 TrackとHacker Trackでも書いてるxaicronさんです。お楽しみに!