\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评论
当用于匹配操作时，有时候 =~ 和 !~ 分别读做“匹配”和“不匹配”（因为“包含”和“不包含”会让人觉得有点模糊）。"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阅读
[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评论
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正则的一些规范，很多妙用。
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阅读
perl兼容正则符号 | 正则符号 | 描述| | | | | \b | 匹配单调边界 | | \w | 匹配字符数字下划线 | | \W | 和\w相反 | | \s | 匹配空白 | | \d | 匹配数字 | | \d+ | 匹配多个数字 | | \D | 匹配非数字 | 点击查看代码 1.匹 ...
转载
2021-10-19 15:31:00
449阅读
2评论
2.3.2 grok 正则捕获:\s+ 和 [\n\t\r\f]+ 一样 1、命名分组格式为(?)，反向引用时用\k2、命名分组的匹配的结果存在在变量%+变量中，取命名分组值，$+{grp name}.zjtest7-frontend:/root/0825# cat a1.pl my $str...
转载
2016-08-25 15:12:00
195阅读
2评论
2.3.2 grok 正则捕获:\s+ 和 [\n\t\r\f]+ 一样 1、命名分组格式为(?)，反向引用时用\k2、命名分组的匹配的结果存在在变量%+变量中，取命名分组值，$+{grp name}.zjte...
转载
2016-08-25 15:12:00
102阅读
2评论
