《PERL高效编程》学习笔记(2)【关于数值上下文、字符串上下文】

• ==用于比较数值，与C不同的是，当用==比较字符时(同>,<)，纯粹的字符串会转变为数值0，夹杂数字的字符串会忽略字符串中的非数字部分，最终将字符串转换为数值上下文。

use 5.010;
use strict;

say '10abc' == '10bcd';
say '10abc' < '11bcd';
say 0 == 'bcd';
say 'abc' == 'bcd';
say 0 < '1bcd';

• 智能匹配

启动智能匹配需确保PERL版本早5.10.1以上。

use 5.010;
use strict;

say '10abc' ~~ '10bcd';
say '10abc' ~~ '11bcd';
say 0 ~~ 'bcd';
say 'abc' ~~ 'bcd';
say 0 ~~ '0bcd';
say '123' ~~ '123.0';

#以上全假

say '123' ~~ 123;

#以上为真

• PERL中的假值

0，'0'，undef，''。

WHILE语句遇到假值时会跳出，所以如下代码在碰到抓取的文件名为0时存在BUG：

use 5.010;
use strict;

#存在漏洞
while (my $file = glob('*')) {
    say $file;
}

#应该改成
while (defined (my $file = glob('*'))) {
    say $file;
}

<>有些不同，它会自动过滤假值：

use 5.010;
use strict;

while (<STDIN>) {
    say $_;
}

* 《PERL高级编程》第二版中P12最后一行“如果想将当前读到的某行赋值给其他变量，那我们得自己做defined检查”。这句话经实测后发现有误，反编译后发现同样会进行defined检查。

use 5.010;
use strict;

while (my $val = <STDIN>) {
    say $val;
}

• 数组循环中跳过undef 备忘

use 5.010;
use strict;

foreach my $cat (@cats){
    next unless defined $cat;
    print "defined";
}

• 字符串和数字之间的转换

使用Dump函数查看细节：

use 5.010;
use strict;
use Devel::Peek qw(Dump);

my $a = "12fred343";

print STDERR "Before conversion: ";
Dump($a);

my $b = $a + 0;
print STDERR "After conversion: ";
Dump($b);

代码结果如下：

对于$!，在数字上下文中返回以数字代表错误类型的系统变量errno，在字符串上下文中返回perror()函数中提供的字符串错误信息。

use 5.010;
use strict;

open "";
say $!;
say $! + 0;