Magic Perl Code!

deathcult

：）

1. 
   
2. use Term::Cap;$t=Term::Cap->;Tgetent({$_="7362514erl".
   
3. "..ehtonaphacker..r...tsuj"});$|=print`clear`;s|.|$a=
   
4. $d++%2?$a*21:$a>;0?-2:2;for$z(1..$&){print $t->;Tgoto(cm,
   
5. ($f+=$a)%21,$f/21).chop.$/x4;select $q,$q,$q,0.1}|eg;
   

复制代码

deathcult

another one :

1. 
   
2. $m=2;$x=$y=4;$n=$|=1;{printf"\ec\e[$y;$x\H \e[%d;%dH*\e[$l;H \e[%dH$d\e"
   
3. ."[$r;40H \e[%d;40H$d",$y+=$n*=$y<2|$y>;10?-1:1,$x+=$m*=$x<3|$x>;37?-1:1,$
   
4. l+=($c=$l-($m>;0?6:$y))?$c>;0?-1:1:0,$r+=($c=$r-($m<0?6:$y))?$c>;0?-1:1:0,$
   
5. d="\e[7m \e[m";$d.="\e[$_;20H|\n"for(1..11);select$q,$q,$q,0.1;redo}
   

复制代码

bytewolf

1. 
   
2. #!/usr/bin/perl
   
3. ($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')=~y~b-v~a-z~s;                             
   
4. print
   

复制代码

这段很有趣，似乎后面是个正则，可是~y是什么意思？deathcult或者懂的能否给个分析？     
我先看看perldoc

deathcult

HI bytewolf!
你理解错啦，：）

不是"~y"，而是

1. 
   
2. =~  y~b-v~a-z~s;
   

复制代码

后面的"~"，实际上是定界符，相当于

1. 
   
2. =~  y/b-v/a-z/s;
   

复制代码

这样就可以容易理解了，
y函数其实就等于tr函数。
s选项表示：将多个字符挤压为单个字符。

bytewolf

啊，哈哈，我没有理解错阿，我就是把他当成=~  y/b-v/a-z/s; 来看的阿
我只是不知道y是虾米意思所以问问，原来y是tr的意思啊
这个magicCode挺有意思的
DeathCult~3Q

cinanine

啊，哈哈Magic Perl Code

章北海

一直不明白楼主的头像到底是个神马东东。

liyangole

{:3_183:} 神码都是浮云

JCheung

好優美的style。。

earth2mars

啥意思啊，好像没法执行
use Term::Cap;$t=Term::Cap->;Tgetent({$_="7362514erl".
"..ehtonaphacker..r...tsuj"});$|=print`clear`;s|.|$a=
$d++%2?$a*21a>;0?-2:2;for$z(1..$&{print $t->;Tgoto(cm,
($f+=$a)%21,$f/21).chop.$/x4;select $q,$q,$q,0.1}|eg;