求一个正则表达式,正整数从小到大（连续）,数字以逗号隔开.

Question

求一个正则表达式,正整数从小到大（连续）,数字以逗号隔开.

Answer 1

@m=split(',',$str);
$min=-9999999999;
$match=1:
for(@m){
if/^[+-]?\d+/ && $_>$min{$min=$_;}
else{$match=0;last;}
}