整数の表現について

もし、数字が整数だった場合はこのＡ処理を
もし、数字が小数点を含む数字だった場合はＢ処理をというようなＩＦ文を作りたいのですが”整数” ”小数点” をどのように表現するのか解りません。
どうか教えて頂けないでしょうか。
又、違う表現等があった場合もあるのでしょうかお願します。

No.1 回答者： yuizuian 回答日時： 2001/12/19 10:32

if ($A =~ /\./) {…}

else {…}
という感じで、「小数点があるか」で判定してはどうでしょう？

No.2 回答者： heather 回答日時： 2001/12/19 10:39

$ perldoc -q integerで探したらありました。

以下抜粋。

How do I determine whether a scalar is a
number/whole/integer/float?

Assuming that you don't care about IEEE notations like
"NaN" or "Infinity", you probably just want to use a
regular expression.

if (/\D/) { print "has nondigits\n" }
if (/^\d+$/) { print "is a whole number\n" }
if (/^-?\d+$/) { print "is an integer\n" }
if (/^[+-]?\d+$/) { print "is a +/- integer\n" }
if (/^-?\d+\.?\d*$/) { print "is a real number\n" }
if (/^-?(?:\d+(?:\.\d*)?|\.\d+)$/) { print "is a decimal number" }
if (/^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/)
{ print "a C float" }


抜粋終

No.3 回答者： noname#25358 回答日時： 2001/12/19 11:16

　えーと、１つ確認していただきたいんですが、たとえば「4.0」は整数でしょうか？

　もしそうであれば、

if (int($number) == $number) {} else {}

　俺の経験上、これが一番確実です。

No.4 回答者： kawa-sin 回答日時： 2002/01/07 17:11

if ( $data =~ /\.+/ ){

B処理
print "少数\n";
}else{
A処理
print "不少数\n";
}

でどうですか？