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

haixin3036

• ==用于比较数值，与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;