perl 运算符<2>

[oracle@jhoa perl2]$ cat 1.pl 
if ((5 > 3) || ( 1 > 2) ){print "xxxxxxxxx\n"};
[oracle@jhoa perl2]$ perl 1.pl 
xxxxxxxxx


[oracle@jhoa perl2]$ cat 1.pl 
if ((5 > 3) or ( 1 > 2) ){print "xxxxxxxxx\n"};

[oracle@jhoa perl2]$ perl 1.pl 
xxxxxxxxx

[oracle@jhoa perl2]$ cat 1.pl 
if ((2 > 3) or ( 1 > 2) ){print "xxxxxxxxx\n"};
[oracle@jhoa perl2]$ perl 1.pl 


for ($a=1;$a<=10;$b=++$a){
print "$b\n";
}
[oracle@jhoa perl2]$ perl 2.pl 

2
3
4
5
6
7
8
9
10

[oracle@jhoa perl2]$ cat 2.pl 
for ($a=1;$a<=10;$b=$a++){
print "$b\n";
}
[oracle@jhoa perl2]$ perl 2.pl 

1
2
3
4
5
6
7
8
9