Perl | sqrt()函数

Perl是一种通用的脚本语言，支持各种编程范式，其sqrt()函数用于求一个数的平方根。

语法

sqrt EXPR

EXPR为要计算平方根的数字表达式。

返回值

sqrt()函数返回EXPR的平方根，如果EXPR小于0则返回undef。

示例

下面是几个sqrt()函数的例子：

use feature 'say';

my $num = 64;
say sqrt($num); # 输出 8

$num = 7.25;
say sqrt($num); # 输出 2.68654848921645

$num = -4;
say sqrt($num); # 输出 undef

注意事项

如果对负数求平方根会导致一个运行时错误，因此要先检验数字是否大于或等于零：

use warnings;
use strict;
use feature 'say';

my $num = -4;
if ($num >= 0) {
  say sqrt($num);
}
else {
  say "不能对负数求平方根";
}