这里列几个不常用的Perl操作符备忘。
$test ||=2;
如果$test的布尔值为false,就赋值为2
my $test3 ="abc";
$test3 x=3;
重复$test3的字符串3次,注意是x=,不是*=。
测试源码
#!/usr/bin/perl
use Data::Dumper;
my $test ||=2;
my $test2 = 0;
print Dumper ($test);
print Dumper($test2);
if ($test){
print Dumper($test);
}
if ($test2){
print Dumper($test2);
}
$test ||=3;
$test2 ||=3;
print Dumper ($test);
print Dumper ($test2);
my $test3 ="abc";
$test3 x=3;
print Dumper($test3);