如何在Perl中打印出正或负十进制数？

Question

我试图通过正则表达式在字符串中找到正数和负数。我已经得到了一个有效的正则表达式模式，但是我如何用负号返回负数呢？我知道我可以有两个if语句，但我想知道是否有正则表达式的快捷方式。

my $number = 'I have a number that is a-32.10a';

if($number =~ /[-]?(\d+)(\.?(\d+))/){
    print "Number: $1$2\n";
}else{
    print "No match\n";
}

只返回32.10；我也希望返回-。

反之，如果$number是一个整数，比如= 234，我怎么能只打印整数而打印小数的no match呢？

Answer 1

您没有在捕获组中包含可选的-。

下面的代码可以工作：

my $string = 'I have a number that is a-32.10a';

my ($number) = ($string =~ /(-?\d+\.?\d+)/);

if (defined $number) {
    print "Number: $number\n";
} else {
    print "Not a number!\n";
}

Answer 2

要获得-，为什么不直接使用/(-?\d+\.?\d+)/呢？为什么要打印"Integer“，而-32.10实际上不是？