如何将 Perl 数组中的元素四舍五入到小数点后两位？

Question

我有一个包含几个元素的数组：

MSN = 34.3433423432434%

Chrome = 12.4343434353534%

Gtalk = 32.23233543543532% ...

我将此数组作为 y 轴标签传递，以与名为 的模块一起使用GD::图。我现在面临的问题是图表上的数字太大，以至于它们与相邻条目重叠并使其无法读取。

有没有一种方法可以将数组中的所有元素四舍五入到小数点后两位？并将其设为xx.xx%？

<子><上> 另外，任何熟悉使用 GD::Graph 的人，你知道如何增加图表上的文本大小吗？我可以很好地增加标题/图例的大小，但“Gtalk”或“32.23233543543532%”中的实际文本非常小，我已经尝试了 http://search.cpan.org/dist/GDGraph/Graph.pm，但它们似乎不适合我！

Answer 1

来自 perlfaq4 的回答 Perl 有 round() 函数吗？ ceil() 和 Floor() 怎么样？三角函数？
：

---

请记住，int() 只是向 0 截断。要舍入到特定位数，sprintf() 或 printf() 通常是最简单的方法。

printf("%.3f", 3.1415926535);   # prints 3.142

POSIX 模块（标准 Perl 发行版的一部分）实现 ceil()、floor() 以及许多其他数学和三角函数。

use POSIX;
$ceil   = ceil(3.5);   # 4
$floor  = floor(3.5);  # 3

在 5.000 到 5.003 perls 中，三角函数是在 Math::Complex 模块中完成的。在 5.004 中，Math::Trig 模块（标准 Perl 发行版的一部分）实现了三角函数。它在内部使用 Math::Complex 模块，某些函数可以从实轴突破到复平面，例如 2 的反正弦。

金融应用中的舍入可能会产生严重影响，应精确指定所使用的舍入方法。在这些情况下，最好不要相信 Perl 使用的系统舍入，而是自己实现所需的舍入函数。

要了解原因，请注意在中途点交替方面仍然存在问题：

for ($i = 0; $i < 1.01; $i += 0.05) { printf "%.1f ",$i}

0.0 0.1 0.1 0.2 0.2 0.2 0.3 0.3 0.4 0.4 0.5 0.5 0.6 0.7 0.7
0.8 0.8 0.9 0.9 1.0 1.0

不要责怪 Perl。这和 C 中的一样。IEEE 说我们必须这样做。绝对值为 2**31 以下整数（在 32 位机器上）的 Perl 数字的工作方式与数学整数非常相似。其他数字不保证。

Answer 2

#!/usr/bin/perl

use strict; use warnings;
use YAML;

my %x = (
    MSN => '34.3433423432434%',
    Chrome => '12.4343434353534%',
    Gtalk => '32.23233543543532%',
);

for my $x ( values %x ) {
    $x =~ s/^(\d+\.\d+)%\z/ sprintf '%.2f%%', $1/e;
}

print Dump \%x;

输出：

Chrome: 12.43%
Gtalk: 32.23%
MSN: 34.34%

如果您想按特定顺序提取值，请使用哈希切片：

print "@x{ qw( MSN Chrome Gtalk ) }\n";

或者，如果您只想在 plot 调用中排列键和值：

my $gd = $graph->plot([
    [ keys %x ],
    [ @x{ keys %x } ],
]) or die $graph->error;

注意：要增加文本大小a GD::Graph，为元素使用较大的字体。请参阅带轴图表的方法。

使用GD::Graph，您确实不必自己修改这些值。只需提供字符串 '.2f%%' 作为 y_number_format 的参数。

Answer 3

http://search.cpan.org/dist/Math-Round/Round.pm

Math::Round 也能创造奇迹。您可以向其传递标量或列表。