perl
zoot
2017年我开始了csdn,我从互联而来,为互联而去.修行靠个人,记录.
展开
-
perl
exp01main.pluse 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.pmpackage Pk011;us...原创 2020-04-02 11:46:26 · 189 阅读 · 0 评论 -
perl
perl基本语法正则表达式正则表达式#!/user/bin/perl$_="aabbccaa"; if(/(aa)?(bb)(cc)\1/){ print "XXXX\n"}$_="bbccaa";if(/(aa)?(bb)(cc)\1/){ print "XXXX\n";}else{ print &原创 2019-03-03 10:51:12 · 165 阅读 · 0 评论