あなたが理解できない，たった一行のPerlのコード

http://d.hatena.ne.jp/language_and_engineering/20120619/p1

whatever  / 25 ; # / ; die "this dies!";                                                                                       

これね。

BEGIN {                                                                                                                        
    if ( 0.5 < rand() ) {                                                                                                      
        eval "sub whatever() { }; 1" or die $@;                                                                                
    }                                                                                                                          
    else {                                                                                                                     
        eval "sub whatever { }; 1" or die $@;                                                                                  
    }                                                                                                                          
}                                                                                                                              
whatever  / 25 ; # / ; die "this dies!";                                                                                       

こういう風に prototype がちがうと残念ですね。

この話題 2008 年にみたわー http://www.perlmonks.org/?node_id=663393 ってことで。

Published: 2012-06-20(Wed) 08:03