使用perl的eq运算符可以更改参数的类型

发布时间：2020-12-15 21:56:56 所属栏目：大数据来源：网络整理

导读：我制作了这个脚本来检查标量在意外使用’eq’而不是’==’时如何变化,反之亦然.在字符串上使用’==’会改变,但在数字上使用’eq’会以某种方式改变标量.代码如下： #!/usr/bin/perluse strict;use JSON;my $str = "123";my $num = 123;print "BEFORE:n";pri

我制作了这个脚本来检查标量在意外使用’eq’而不是’==’时如何变化,反之亦然.在字符串上使用’==’会改变,但在数字上使用’eq’会以某种方式改变标量.代码如下：

#!/usr/bin/perl
use strict;
use JSON;

my $str = "123";
my $num = 123;

print "BEFORE:n";
print "str: ",$str," num: ",$num,"n";
print to_json({str => $str,num => $num},{pretty => 1});

if ($str == 23) { }
if ($num eq "123") { }

print "AFTER:n";
print "str: ",{pretty => 1});

print "n";

输出：

BEFORE:
str: SCALAR(0x8010f8) num: SCALAR(0x801050)
{
      "num" : 123,"str" : "123"
}
AFTER:
str: SCALAR(0x8010f8) num: SCALAR(0x801050)
{
      "num" : "123","str" : "123"
}

使用单词,$num从数字变为字符串.通过评论该行

if ($num eq "123") { }

$num不再更改.这是一个错误或功能吗？为什么会这样？另外,如何在不使用to_json的情况下看到这个？

perl --version
This is perl 5,version 14,subversion 2 (v5.14.2) built for x86_64-linux-gnu-thread-multi

解决方法

Perl变量是多值的,例如它们有字符串,整数,浮点和引用的插槽.

如果为变量分配字符串,它将存储在字符串插槽中,此插槽将标记为有效.如果稍后以变量形式访问变量,则将转换该字符串,并更新浮点或整数槽并标记为有效.在您的示例中,$str最初将具有有效的字符串槽,并且在与整数进行比较之后,它还将具有有效的整数槽.如果您将它与浮点数进行比较,则会有一个有效的浮动槽.您可以使用Devel :: Peek :: Dump来检查：POK表示有效的字符串槽,IOK是有效的整数槽,NOK是有效的浮槽.

如果存储整数并稍后将其用作字符串,则会发生类似的情况.在您的示例中,$num最初将有一个有效的整数槽(IOK),一旦您以字符串形式访问它(通过使用eq),它将被转换为字符串,字符串槽将被填充并且有效(POK)整数槽.

to_json可能只是查看变量并获取它找到的第一个有效槽,从字符串开始(我想这必须是JSON :: XS中的encode_sv – 这将按以下顺序检查：string,float,integer).因此,如果字符串插槽有效,它将在其周围打印引号.

其他语言(如python)没有这个多槽的东西,它们只有一个类型,如果你在另一个上下文中使用变量,它会呱呱叫.两种方式各有利弊:)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!