在perl 使用Numeric::Wantarray模块，它有is_number()函数事例

Numeric::Wantarray 是 Perl 中的一个模块，用于判断一个引用是否看起来像数组或哈希，并提供一些额外的操作来处理它们。当你需要确认一个变量是否应该是数字，而不是作为数组处理时，is_number() 函数非常有用。它会检查给定的引用是否可以直接转换成数字，而不会触发自动引用转换。

下面是一个使用 Numeric::Wantarray 的 is_number() 函数的例子：

use strict;
use warnings;
use Numeric::Wantarray;

my $value = "123"; # 可能是字符串
my $is_number = is_number($value);

if ($is_number) {
    print "The value '$value' appears to be a number.\n";
    my $numeric_value = eval { int $value }; # 尝试转换为整数
    if ($@) {
        warn "Failed to convert to an integer: $@\n";
    } else {
        print "Converted to integer: $numeric_value\n";
    }
} else {
    print "'$value' does not appear to be a number.\n";
}

在这个例子中，`is_number()` 返回 true 如果 `$value` 看起来像是数字。然后我们尝试将其转换为整数。如果转换成功，`eval` 结构会捕获任何错误并打印一条警告；如果失败，我们将得到一个警告消息。