"perl、 MySQL、オープンソース系、ウェブ系ネタ。なぜか鯖管メモがほとんどを占めている…...."
Written by clicktx. No comments
例えば
sub xxx{ eval{ my $a=1; if($a){return(0);} }; } if(&xxx){print”abc”;} else{print”def”;}
sub xxx{ eval{ my $a=1; if($a){return(0);} }; }
if(&xxx){print”abc”;} else{print”def”;}
などとするとうまくいかない。
sub xxx{ eval{ my $a=1; if($a){die;} }; if($@){return(0);} }
などとしよう。
Filed under: perl
Trackback Uri
名前
Mail (will not be published)
サイト
最近のコメント