自定义分隔符|/i|/x|/xs|需要转译

 小骆驼 第八章 用正则表达式进行匹配

 #!/usr/bin/envperl

 use strict;
 use warnings;

 $_ ="#adchbehnyhme3534f\nvdh5ejbnv                _+IHG\n";

 if(m%(a)%){print "$1\n";}else{print "no match!\n";}

 if(/(i)/i){print "$1\n";}else{print "no match!\n";}

 if(/ad(.*)5e/s){print "$1\n";}else{print "no match!\n";}

 if(/     j(.*)v/x){print "$1\n";}else{print "no match!\n";}

 if(/    (.?)/sx){print "$1\n";}else{print "no match!\n";}

 if(/\#(.*)/){print "$1\n";}else{print "no match!\n";}

 #a
 #I
 #chbehnyhme3534f
 #vdh
 #bn
 #
 #adchbehnyhme3534f