perl中的指数值操作

Question

我有一个选择语句，它以指数值返回容量，例如

Capacity=5.4835615662E+003

在 Perl 代码中

我使用的是 db2 数据库，如果我在数据库中显式运行查询，它会返回

5483.5615662

但是当我在不匹配的情况下使用容量值时使用下一个选择查询时

例如伪代码如下，

my $capacity = 'SELECT capacity FROM table';

# it returns $capacity = 5.4835615662E+003

my $result = "SELECT MEASUREMENT FROM TABLE WHERE CAPACITY = $capacity";

这里$capacity 是5.4835615662E+003，所以它不匹配表中的任何行。应该是5483.5615662。

如何在不四舍五入的情况下将指数值转换为浮点数？

Answer 1

您正在将$capacity 的值插入到字符串中。相反，您应该使用placeholders，如下所示：

 my $sth = $dbh->prepare(q{SELECT MEASUREMENT FROM TABLE WHERE CAPACITY=?});
 $sth->execute($capacity);

很难说是否还有其他问题，因为您提供的代码 sn-ps 并没有真正做任何事情。

很可能存储在数据库中的数字不完全是5483.5615662，而这只是您查询时显示的字符串。

如果可能，我建议您采纳@Сухой27 的建议，让数据库为您完成工作：

SELECT MEASUREMENT FROM TABLE
WHERE CAPACITY = (SELECT CAPACITY FROM TABLE where ..?)

或者，提前确定小数点后多少位真正重要并使用ROUND 或类似功能：

 my $sth = $dbh->prepare(q{
     SELECT MEASUREMENT FROM TABLE
     WHERE ROUND(CAPACITY, 6)=ROUND(?, 6)
 });
 $sth->execute($capacity);

Answer 2

请看Why doesn't this sql query return any results comparing floating point numbers?

我担心您在问题中显示的5.4835615662+003。这不是数字的有效表示，它仅表示5.4835615662 + 3。您需要在指数之前使用 E 或 e 才能按原样使用它

comparing floating-point values 还存在一个问题，即两个基本相等的数字可能具有稍微不同的二进制表示，因此不会比较相等。如果您的值已转换为字符串（这似乎很有可能，因为 Perl 不会使用指数来显示 5483.5615662 除非被告知这样做）并再次转换为浮点数，那么它极不可能导致 完全相同的值。你的比较总是会失败

在 Perl 和大多数其他语言中，数值没有特定的格式。例如，如果我运行这个

perl -E 'say 5.4835615662E+003'

我得到了输出

5483.5615662

表明两个字符串表示是等价的

这将有助于准确了解您是如何从数据库中获得 $capacity 的值的，因为如果它是一个简单的数字，那么它就不会使用科学表示。您必须使用 sprintf 才能获得您所显示的内容

SQL也是一样的，不关心数字的格式，只要有效就行，所以如果你写了

SELECT measurement FROM table WHERE capacity = 5.4835615662E+003

那么您会得到一个结果，其中capacity 恰好 等于该值。但是由于它已被修剪为 11 位有效数字，因此您极不可能找到该值的来源记录，除非它包含 5483.56156620000000000

---

更新

如果我跑步

perl -MMath::Trig=pi -E 'for (0 .. 20) { $x = pi * 10**$_; say qq{$x}; }'

我得到了这个结果

3.14159265358979
31.4159265358979
314.159265358979
3141.59265358979
31415.9265358979
314159.265358979
3141592.65358979
31415926.5358979
314159265.358979
3141592653.58979
31415926535.8979
314159265358.979
3141592653589.79
31415926535897.9
314159265358979
3.14159265358979e+015
3.14159265358979e+016
3.14159265358979e+017
3.14159265358979e+018
3.14159265358979e+019
3.14159265358979e+020

所以默认情况下，Perl 不会使用科学记数法，直到值达到 10¹⁵。它显然不适用于5483.5615662。某些东西将问题中的浮点值强制转换为科学计数法中不太精确的字符串。比较平等没有成功的机会