确定 perl 标量是字符串还是整数

Question

根据我的阅读，perl 没有整数或字符串的真正类型，对他来说任何 $variable 都是标量。

最近我在一个旧脚本上遇到了很多麻烦，该脚本正在生成另一个进程所需的 JSON 对象，其中 JSON 中的值必须是整数，经过一些调试后我发现因为一个简单的打印函数：

JSON::encode_json

正在生成一个字符串而不是一个整数，这是我的示例：

use strict; 
use warnings; 
use JSON;
my $score1 = 998;
my $score2 = 999;
print "score1: ".$score1."\n";
my %hash_object = ( score1 => $score1, score2 => $score2 );
my $json_str = encode_json(\%hash_object);  # This will work now
print "$json_str";

它输出：

score1: 998
{"score1":"998","score2":999}

不知何故 perl 变量有一个类型，或者至少 JSON::encode_json 是这样认为的。

有没有办法以编程方式找到这种类型以及为什么在进行上述连接这样的操作时会改变这种类型？

Answer 1

首先，它有些不正确。是的，每个值都是标量，但标量具有单独的数字和字符串值。对于这个特定问题，您只需要知道这些，所以我将省略详细信息。

您真正需要的是查看 JSON 模块文档的 MAPPING / PERL -> JSON / simple scalars 部分：

JSON::XS 和 JSON::PP 会将未定义的标量编码为 JSON null 之前最后在字符串上下文中使用的值、标量 编码为 JSON 字符串，以及其他任何数字值。

（这里的文档实际上有点错误。它不是“最后一次在字符串上下文中使用”它应该是“曾经在字符串上下文中使用过” - 一旦标量获得字符串值它不会消失，直到你 明确写入一个新数字。）

您可以通过字符串化来强制类型为字符串：

my $x = 3.1; # some variable containing a number
"$x";        # stringified
$x .= "";    # another, more awkward way to stringify
print $x;    # perl does it for you, too, quite often

顺便说一句，上面的这条评论正是关于你的 998 变成字符串的原因。

您可以通过 numifying 强制类型为数字：

my $x = "3"; # some variable containing a string
$x += 0;     # numify it, ensuring it will be dumped as a number
$x *= 1;     # same thing, the choice is yours.

Answer 2

Perl 标量可以同时保存一个字符串和一个标量值。其中任何一个都可以作为 JSON 值有效，因此如果有一个，则始终使用 字符串值

这是一个罕见的问题，因为大多数软件应该接受带引号或不带引号的数字表示。 JSON 文档中的所有内容最初都是一个字符串，如果要求模块在将数据交给您之前应用任意字符串 → 浮点转换，可能会丢失重要数据

但如果你真的需要写一个不带引号的数字值，那么你可以强制一个标量作为数字类型：只需向它添加零。

同样，如果一个标量变量只包含一个数字变量，那么您可以强制 Perl 仅通过将其用作字符串来生成和存储其等效字符串。对我来说最明显的方法是用引号括起来

此代码似乎可以执行您想要的操作

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

use JSON;

my ($score1, $score2) = (998, 999);

print "score1: $score1\n";

my %data = ( score1 => 0+$score1, score2 => 0+$score2 );

say encode_json(\%data);

输出

score1: 998
{"score1":998,"score2":999}