整数の表現について

質問

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

回答No.4

kawa-sin

if ( $data =~ /\.+/ ){
B処理
print "少数\n";
}else{
A処理
print "不少数\n";
}

でどうですか？

回答No.3

noname#25358

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

　もしそうであれば、

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

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

回答No.2

heather

$ 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.1

yuizuian

if ($A =~ /\./) {…}
else {…}
という感じで、「小数点があるか」で判定してはどうでしょう？