perl 运算符

11111[root@jhoa bin]# cat 2.pl 
$var="cd";
if ($var eq "cd"){print "11111"};

[root@jhoa bin]# perl 2.pl 
11111[root@jhoa bin]# 


字符窜相等用 eq

数字相等用==

my $command="cd /tmp";
print "$command  is $command:
";
my $newdir=(split /s+/,"$command")[1]; ---取第2个元素
print "$newdir is $newdir:
";


[root@jhoa bin]# perl a1.pl 
$command  is cd /tmp:
$newdir is /tmp:


或运算符
[oracle@jhoa ~]$ cat s3.pl 
$i = "bfsdf";
if ($i =~ /a|b/){print "11111
";}


[oracle@jhoa ~]$ perl s3.pl 
11111