如何在 Perl hash 中将字符串转换为浮点数？

Question

我的动机是在创建 hash 时将字符串数转换为浮点数。

我把我的整个代码和错误放在下面。 请帮我解决这个问题。

示例代码

use strict;
use warnings;

use Data::Dumper;

my $price = 8.5;

my $g={};
$g->{'get'}=sprintf('%.02f',$price);

print Dumper($g);

当前 output

$VAR1 = {
          'get' => '8.50'
        };

预期 output

$VAR1 = {
          'get' => 8.50
        };

Answer 1

尽管Dumper output 中的单引号约为8.50 ，但当您使用 go 时，Perl 仍会将其视为数值：

use strict;
use warnings;

my $price = 8.5;

my $g={};
$g->{'get'}=sprintf('%.02f',$price);

my $x = 5;
printf "%.02f\n", $x + $g->{get};

输出：

13.50

Answer 2

use Scalar::Util 'looks_like_number';
.
.
print Dumper($g) =~ s/'(.*?)'/looks_like_number($1)?$1:"'$1'"/ger;

这会在打印之前从 Dumper 更改 output。 如果根据 Scalar::Util，它看起来像一个数字，它会删除每个单引号字符串的两个' 。

Answer 3

我怀疑你在这里不必要地担心。 Perl 将字符串和数字视为在很大程度上可以互换，并且通常会对任何一种类型的数据做正确的事情。 如果你有一个字符串或一个数字，你应该关心的次数很少。

事实上，即使你在像你这样的代码中明确地给 Perl 一个数字，它也会显示为一个字符串：

$ perl -MData::Dumper -E'say Dumper { get => 8.5 }'
$VAR1 = {
          'get' => '8.5'
        };