\s 代表空格+ 代表重复一次或一次以上\s+ 代表一个或者一个以上空格[oracle@jhoa ~]$ cat a3.pl $command ="ls -ltr";my ($binary,$var)=split...
转载
2014-10-28 18:54:00
131阅读
2评论
[oracle@jhoa perl2]$ cat a1.pl open(CPU,") { chomp; if( /^model name.*: (.*$)/) { ...
转载
2014-12-01 20:28:00
70阅读
2评论
正则表达式:a # 匹配字母a\$ #匹配字母$\n #匹配换行符[a-z] #匹配任何一个小写字母. #匹配除\n以外的任意字符\1 #反向引用所匹配到的第一组捕获内容* 匹配0个、1个或多个相同字符？匹配...
转载
2014-12-21 21:55:00
52阅读
2评论
模式匹配，在字符串中寻找特定序列的字符指定模式：由斜线包含，/def/即模式def。匹配操作符 =~、!~模式匹配的3种类型：m//模式匹配，s///匹配并替换（类似linux的sed命令），tr///逐一替换，...
转载
2015-02-16 10:45:00
88阅读
2评论
[oracle@jhoa 1]$ cat 5.pl my $string = "This string contains the number 25.11.";if ($string =~ /-?(\d+)\.?...
转载
2014-12-22 15:25:00
34阅读
2评论
当用于匹配操作时，有时候 =~ 和 !~ 分别读做“匹配”和“不匹配”（因为“包含”和“不包含”会让人觉得有点模糊）。"hot cross buns" =~ /cross/;print "$`\n"; #匹配左边...
转载
2014-12-08 19:24:00
90阅读
2评论
用/s 来匹配任意字符 默认情况下,点号(.)无法匹配换行符,这对大多数单行匹配的情况是合适的。 . 圆点用于匹配除换行符外的任何单个字符 + 意味着一个或多个相同的字符 .+ 匹配...
转载
2016-10-13 09:40:00
120阅读
2评论
Perl正则表达式一、介绍 正则表达式各语言都有自己的规范，但是基本都差不多，都是由元字符的组合来进行匹配；由于Nmap内嵌的服务与版本探测是使用的Perl正则规范，因此此篇博客记录一下Perl正则的相关内容，方便后期查阅。二、Perl正则例子(匹配下面的内容：
1）： {"service":"nutcracker", "source":"ubuntu", "version":"0.3.0"
转载
2024-09-17 16:22:10
28阅读
uat-prx02:/root# cat a1.pl my $str="123";if ($str =~/(abc)*/){print "111111111\n"};uat-prx02:/root# perl a1.pl 111111111匹配 0 次或多次 abc 字符串uat-prx02:/...
转载
2016-10-13 22:15:00
44阅读
2评论
#!/usr/bin/perl -w =pod 命名捕获--给匹配上的内容加上标签 捕获到的内容都会保存在%+散列中，这个散列的key为对应的标签； 方便之处就是利于程序扩展和阅读，不用繁琐的一个一个去数括号来获取匹配变量 =cut zjtest7-frontend:/root/perl# ca...
转载
2016-08-19 09:46:00
237阅读
2评论
#$_='{"code":0,"data":{"country":"台湾","country_id":"TW","area":"","area _id":"","region":"台湾省","region_id"...
转载
2015-03-26 10:35:00
229阅读
2评论
#!/usr/bin/perl -w =pod 命名捕获--给匹配上的内容加上标签 捕获到的内容都会保存在%+散列中，这个散列的key为对应的标签； 方便之处就是利于程序扩展和阅读，不用繁琐的一个一个去数括号来获...
转载
2016-08-19 09:46:00
163阅读
2评论
uat-prx02:/root# cat a1.pl my $str="123";if ($str =~/(abc)*/){print "111111111\n"};uat-prx02:/root# perl a...
转载
2016-10-13 22:15:00
80阅读
2评论
jrhmpt01:/tmp# cat sum.pl open (LOG ,") { chomp; ##10.171.246.184 - - [05/Feb/2016:20...
转载
2016-02-06 08:18:00
74阅读
2评论
if ($_ =~ /.*\s+"(POST|GET)\s*(.*?)\s*HTTP.*?(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/)10.252.142.174 - - [2...
转载
2015-11-26 20:51:00
128阅读
2评论
再一次学到了正则，我们应该不以物喜，不以己悲。恩，就这样。世界变变花花，我们活在自己心里，用自己的心写出来属于自己人生的正则，才能对抗时间和世界的孤独。
原创
2016-11-20 17:16:15
680阅读
Perl for Linux: Why it's the Perfect Match
Perl is a versatile and powerful programming language that is widely used in the world of Linux. Its ability to handle text processing and system administra
原创
2024-03-04 12:35:26
36阅读
Linux系统自带的perl版本一般为：v5.8.8。但是目前很多模块要求perl版本必须要5.10以上，例如：Excel::Writer::XLSX。
升级步骤如下：
1：查询perl的真实安装路径
whereis perl
perl: /usr/bin/perl /etc/perl /usr/lib/perl /usr/X11R6/bin/perl /usr/
原创
2013-01-16 15:33:55
996阅读
Linux是一款备受欢迎的操作系统，而Perl则是一种脚本编程语言。在Linux领域中，Perl扮演着非常重要的角色，可以说二者是如影随形的关系。在Linux中，我们常常会听到一个名词——红帽（Red Hat），那么红帽又是什么呢？
红帽公司是一家全球领先的开源解决方案提供商，总部设在美国北卡罗来纳州。红帽公司不仅在开源社区中拥有极高的知名度和影响力，而且在企业级应用领域也有着广泛的客户群体。红
原创
2024-03-13 10:42:57
97阅读
关于Perl正则的一些规范，很多妙用。
1，定界符
=~ m/there/;=~ s/there/here/;还有类型的定界符：
=~ /there/=~ m#there#;=~ s#there#here#;
=~ m(there);=~ s(there)(here);
=~ m{there};=~ s{there}{here};
=~ m[there];=~ s[there][
转载
2008-10-15 13:23:11
739阅读
