正则<1>

/x :添加空格. /x修饰符允许你在模式中加入任何数量的空白,以方便阅读.      
   
例如: (/-? \d+ \.? \d* /x) 等同于 (/-?\d+\.?\d*/)

[root@dr-MysqL01 lx1]# cat a1.pl 
$_='aa333.dd';
if ($_ =~ /[a-z]+\d+ \.[a-z]+/){print "1111\n"};
[root@dr-MysqL01 lx1]# perl a1.pl 
[root@dr-MysqL01 lx1]# 


[root@dr-MysqL01 lx1]# cat a1.pl 
$_='aa333.dd';
if ($_ =~ /[a-z]+  \d+ \.  [a-z]+/x){print "1111\n"};
[root@dr-MysqL01 lx1]# perl a1.pl 
1111


作用忽略模式中的空格



存储模式 qr/pattern/imsox 


qr将正则表达式存储到一个变量中，这样可以反复使用，可选项意义与m相同

4.qr   相当于创建正则

    qr//

[root@dr-MysqL01 lx1]# cat a2.pl 
$_='aabbcc';
if ($_ =~ qr/dd/){print "11111\n"};
[root@dr-MysqL01 lx1]# perl a2.pl 
[root@dr-MysqL01 lx1]# 


 \Q disable pattern Metacharacters until \E

 \E End case modification