Perlのスカラ変数で値が数値かどうか判定する方法

gistfile1.pl

use strict;
use Scalar::Util qw/looks_like_number/;

my $var1 = 123;
my $var2 = 'abc';

if (looks_like_number($var1)) {
    # $var1は数値なのでif文はtrueになる
    print "数値です", "¥n";
}

if (looks_like_number($var2)) {
    #$var2は数値ではないのでif文はfalseになる
} else {
    print "数値ではありません", "¥n";
}

exit;