Philippe's Expérience Note

這篇程式碼真的太有趣了，大家可以跑跑看!


#!usr/bin/perl
# "To be or not to be, that's a question!"
open DNA, $AGRV[0] || die "Die!!";
While(<DNA>){
 $_Saint=0; $_Alive=0;  $_Hell=0;

While(<DNA>){
     $_Saint=1;
 break;
}

While(<DNA>){

 While(<
  While(<
   While(<
       While(<
        While(<
         While(<DNA>){    
              $_Alive=1;
     break;}>)
    {break;}>)
   {break;}>)
  {break;}>)
 {break;}>)
{break;}

break;
}


While(<DNA>){

 While(<
  While(<
   While(<
    While(<
     While(<
      While(<DNA>){       
           $_Hell=1;
      }>)
     { ;}>)
    { ;}>)
   { ;}>)
  { ;}>)
 { ;}

break;
}

}
close DNA;

#2Bor^2B,that's a question!

 
#我解釋一下，對不起我實在太得意了，最外面的迴圈是while<DNA> 裡頭包了三個小回圈第一個剛進去就break；傳回聖人值(Saint = 1)為真，第二個進去就是迴圈迴圈迴圈，然後break一個才能跳出來下一個，全部都break完才可以跳出來，代表人生就是無盡的煩惱，傳回(Alive=1)，第三個就是跟第二個一樣，可是地獄(Hall  = 1)值為真，而且沒有break 就是無窮無盡的煩惱最後break 出來 Close DNA 代表人性的煩惱已經終結此時 螢幕上會顯示 2B or ^ 2B, that's a question!



文章出處：http://www.wretch.cc/blog/arsenrobin&article_id=11648228