Perl - 平方根结果

Question

我对 Perl 的世界还很陌生，而且我对 sqrt 函数很着迷。卡住是指函数没有返回应有的值。

读取带有坐标信息的文本文件后，8 个值存储在单独的变量中($x1、$y1、$x2、$y2 等)。然后，调用一个子程序，计算点之间的距离，然后计算其他东西。但是，它没有做它应该做的事情，因为 sqrt 函数的结果不是它们应该做的!我以为是变量的获取和存储方式有问题，但是在用字面值执行 sqrt 后，它也产生了一个错误的数字。

这里是值

    -2130.07 207.56  -2084.46 210.76  -1892.78 -2525.74  -1938.39 -2528.93

这里是 sqrt 计算...

    $side1=sqrt(($x1-$x2)^2+($y1-$y2)^2);
    $sidecheck=sqrt((-2130.07-(-2084.46))^2+(207.56-210.76)^2);

$side1 和 $sidecheck 都返回值 6.7823 而不是 45.722。

有没有办法解决这个问题？谢谢!

Answer 1

在 Perl 和其他少数语言中，数字的幂 不是插入符，而是双星号。所以你需要写

$sidecheck=sqrt((-2130.07-(-2084.46))**2+(207.56-210.76)**2);

^ 是按位异或运算符。要平方值，请使用 **