Re: Is the number an Integer or a Float

[cjf-II]

Using Data::Types:

use Data::Types qw/:all/;

my @numbers = (0, 3.14, 5);

for my $num (@numbers) {
    if (is_int($num)) {
        print "$num is an int.\n";
    } elsif (is_float($num)) {
        print "$num is a float.\n";
    } else {
        print "$num is something else.\n";
    }
}

That should print:

0 is an int.
3.14 is a float.
5 is an int.

More excellent examples in the docs