Perl中纯整数匹配问题：数组非整数校验正则失效排查

我有如下Perl数组：

my @nums = (1,2,12,24,48,120,360);

我希望不使用循环，检查数组中是否存在非整数元素（空字符串是允许的），编写了如下代码：

if(grep(!/[^0-9]|\^$/,@nums)){
    die "Numbers are not in correct format.";
}else{
    #Do something
}

合法/非法示例 #

• 不合法：1,2,3,A3、1,2,###,2、1,2,3A,4
• 合法：1, ,3,4、1,2,3,360

受环境限制无法使用looks_like_number方法，只能用正则方案，但当前代码无法检测A60这类错误格式，条件始终返回False。

问题分析 #

原正则表达式!/[^0-9]|\^$/存在两处关键错误：

1. 语法与逻辑错误：|\^$是匹配^和$这两个字符，而非空字符串；同时!的作用范围仅覆盖/[^0-9]/，导致整个表达式逻辑完全偏离需求。
2. 匹配逻辑颠倒：我们需要找出的是既不是空字符串，也不是纯数字的元素，原代码的匹配条件正好相反。

修正后的代码 #

正确的做法是在grep中筛选出不符合要求的元素：当元素非空且不是纯数字时，判定为非法。

my @nums = (1,2,"A60",24);
if(grep { $_ ne '' && !/^\d+$/ } @nums){
    die "Numbers are not in correct format.";
}else{
    # Do something
    print "All elements are valid.\n";
}

正则说明 #

• $_ ne ''：排除空字符串（空字符串是合法的）
• !/^\d+$/：匹配不是纯数字的元素，^\d+$表示字符串从开头到结尾都是数字

内容的提问来源于stack exchange，提问作者x2ffer12