perl 正则

\s 代表空格

+ 代表重复一次或一次以上

\s+ 代表一个或者一个以上空格

[oracle@jhoa ~]$ cat a3.pl 
$command ="ls -ltr";
my ($binary,$var)=split /\s+/,"$command";
print "\$bibary is $binary\n";
print "\$var is $var\n";


[oracle@jhoa ~]$ perl a3.pl 
$bibary is ls
$var is -ltr

#####################################################
正则表达式
m#[|&><;]#

if ($command =~ m#[|&><;]#) {

m/<regexp>;/  可以简写成/<regexp>;/ 略去m

[oracle@jhoa ~]$ cat a4.pl 
$command = ";";
if ($command =~ m#[|&><;]#) {
print "ok\n";
}

[oracle@jhoa ~]$ perl a4.pl 
ok


[oracle@jhoa ~]$ cat a4.pl 
$command = "&";
if ($command =~ m#[|&><;]#) {
p