Perl操作符

这里列几个不常用的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);