zz_hh_uu_的博客

exp01 main.pl use warnings; use strict; use lib "."; use Pk01 #qw(munge frobnicate); print Pk011::munge(20,30); print "\n"; print Pk011::frobnicate(20,30); print "\n"; Pk01.pm package Pk011; us...

perl基本语法正则表达式 正则表达式 #!/user/bin/perl $_="aabbccaa"; if(/(aa)?(bb)(cc)\1/){ print "XXXX\n" } $_="bbccaa"; if(/(aa)?(bb)(cc)\1/){ print "XXXX\n"; } else{ print &amp