looks_like_number() - Perl日記

昨日、looks_like_number()を使ったつながりで、実装はどんな風なんだろうと思ってperldoc -mしてみた。 /path/Scalar/Util/PP.pm sub looks_like_number { # (略) return 1 if (/^[+-]?[0-9]+$/); # is a +/- integer return 1 if (/^([+-]?)(?=[0-9]|\.[0-9])[0-9]*(\.[0-9]*)?([Ee]([+-]?[0-9]+))?$/); # a C float return 1 if ($] >= 5.008 and /^(Inf(inity)?|NaN)$/i) or ($] >= 5.006001 and /^Inf$/i); 0; } 実際の判定は三つの正規表現。 一個目はよく分かる。 /^[+-]?[0-9]+$/ 初めに正負

[kiyo_hiko]

Perl5.8以上でlooks_like_numberにNaNとInf、Infinityを渡すと真に評価される話。気まぐれでNaNを評価させたらtrueになってびっくりしたがこういうことなんですね