Question

参数传递几次并不罕见。

这是一个有趣的例子，失去报价实际上可以帮助。

第一个abs（）返回一个没有引号的变量，使第二个abs返回正确的价值。

我的问题是：

perl是否有一个内部函数来取消引用变量，这样我就不用这样编码了？

#!/usr/bin/perl -w
use strict;
my @nums = (
    '-0',
    '-0.0',
    "-0.000",
    qw(-0.000),
    sprintf("%.4f", "-0.0"),
);

print "***use single abs()\n";
foreach my $num(@nums){
    my $number = $num;
    my $abs = abs($number);
    print "<$num> abs <$abs>\n";
}

print "\n***use abs(abs())\n";
foreach my $num(@nums){
    my $abs_abs = abs(abs($num));
    print "<$num> double abs <$abs_abs>\n";
}

系统信息：

uname -r
2.6.32-573.12.1.el6.centos.plus.x86_64
This is perl, v5.10.1 (*) built for x86_64-linux-thread-multi

屏幕输出：

***use single abs()
<-0> abs <0>
<-0.0> abs <-0>
<-0.000> abs <-0>
<-0.000> abs <-0>
<-0.0000> abs <-0>

***use abs(abs())
<-0> double abs <0>
<-0.0> double abs <0>
<-0.000> double abs <0>
<-0.000> double abs <0>
<-0.0000> double abs <0>

Answer 1

这不是引号的问题 - 引号只是Perl语法告诉解释器字符串的开始和结束位置。 Perl知道存储的值是一个字符串，但引号本身不存储在内存中。

相反，它是特殊浮点值“-0.0”的工件。对于几乎任何用途，它相当于值0.0

perl -E ' $p = 0.0; $n = -0.0; say $p == $n '                    ==> 1
perl -E ' $p = 0.0; $n = -0.0; $x = 4.2; say $p+$x == $n+$x '    ==> 1

据我所知，这两个例外是他们的二进制表示及其字符串表示。

$ perl -e 'print pack "F",0.0' | od -c
0000000  \0  \0  \0  \0  \0  \0  \0  \0
0000010
$ perl -e 'print pack "F",-0.0' | od -c
0000000  \0  \0  \0  \0  \0  \0  \0 200
0000010

$ perl -MDevel::Peek -e 'Dump($n=-0.0),Dump($p=0.0)'
SV = NV(0x43523d8) at 0x434ff00
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  NV = -0
SV = NV(0x43523e0) at 0x4329b58
  REFCNT = 1
  FLAGS = (NOK,pNOK)
  NV = 0

$ perl -E '$p=0.0; $n=-0.0; say for $p,$n'
0
-0

（实际上，使用Perl v5.12我看到0,-0但是v5.16是0,0 - 也许有人注意到并修复了它。

整数0和-0没有此问题。 abs(-0.0)会返回整数0，因此abs似乎无法解决此“引用”问题。

perl是否具有取消引用变量的内部函数？

1 个答案: