perl 获取匹配正则表达式字串

最新推荐文章于 2023-03-01 19:45:45 发布
最新推荐文章于 2023-03-01 19:45:45 发布
阅读量877 收藏
点赞数
文章标签： awk
原文链接：https://my.oschina.net/u/2536026/blog/539433
版权 
perl -lne 'print $1 if /(&url=.*html)/' verylongline.txt

perl 处理起来相当的方便，如果是awk 的话，写起来要复杂一些。

实现目标：有一个很长的文本，希望将里面符合目标模式的文本抽出来 

verylongline is like the following "

/pl/?ac=init&ver=2.0&p1=0&p2=14&ty=0&uid=-&lc=04a04532ee629ce3b04fef39f9ba5753&uuid=1931280229652598&cid=4&pid=10010858&vid=24036535&lid=10010858&st=&sid=&vlen=221&ch=lesports&url=http%3A%2F%2Fsports.dnsname.com%2Fvideo%2F24029774.html&weid=514479312471469006074667&ref=http%3A%2F%2Fwww.letv.com%2F&pv=3.4.0&ilu=1&r=0.20196354296058416&pt=-&err=0&ut=-&ry=0&vt=-
/pl/?ac=block&ver=2.0&p1=0&p2=14&ty=0&uid=-&lc=1724d969c14d2842dcbeb8fca09cb7e6&uuid=1933483847923905_1&cid=4&pid=10013491&vid=24034759&lid=10013491&st=&sid=&vlen=55&ch=lesports&url=http%3A%2F%2Fsports.dnsname.com%2Fvideo%2F24034759.html&weid=514479334830273255928159&ref=-&pv=3.4.0&ilu=1&r=0.1325086944270879&pt=-&err=0&ut=1524&ry=0&vt=21

"



转载于:https://my.oschina.net/u/2536026/blog/539433

chengxie6942
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
正则表达式处理html实例（Perl实现）
LoveLock
08-07 1702
1.Html中Tag提取])*>2.提取标签中的url和链接文本while ($Html =~ m{a\b([^>]+)>(.*?)}ig) { my $Guts = $1; my $Link = $2; if ($Guts =~ m{ \b HREF #href属性 \s* = \s* #两头可能出现空白符 (?: #其值为 "([^"]*)" #双引号
perl regex 取一些匹配字符串
xunileida的专栏
05-06 572
#!/usr/bin/perl use strict; use warnings; my @array; open(my $fh, "<", "file3") or die "Failed to open file: $!\n"; while() { chomp; push @array, $_; } close $fh; foreach my $line(@array)
多个子模块 mapper.xml_IC设计方法：模块划分与overdesign
weixin_39548805的博客
11-13 142
今天讲一个非常简单的设计思想，这个东东也是IC设计方法里的基本矛盾之一：模块划分与overdesign。 模块划分乃是IC设计最基本也最经典的概念之一。该步骤出现在芯片架构设计之初。多方设计人员一起讨论，决定要做什么功能，各个功能究竟要做到什么程度。然后将整个芯片切分成多个逻辑清晰的子模块，决定由谁来实现各个子模块，通常伴随着一些嘴仗跟讨价还价。讨论结束之后，每个人就会大致清楚...
python正则截取字符串_用Perl/R/Python提取正则表达式匹配到的字符串
weixin_39968823的博客
12-03 261
这个应用场景挺多的比如我想提取出注释信息中previous_id对应的基因ID，乍一看以为可以用cut命令一点一点切出来，但是又发现previous_id并不都是紧挨着ID列，并且derived_from对应的ID也需要提取出来。这个时候只能用到正则匹配了。Perl$ cat test.pl#! /usr/bin/perluse warnings;use strict;my $file_name ...
Perl 正则表达式捕捉匹配
USTBHacker的专栏
11-13 1058
文本处理中经常需要将字符串中一些符合匹配的子串捕捉，新发现了一个简单的方法。 老方法： $str = "EJV.done.2010-10-10.2010-11-11.xml"; if($str =~ /([/d-]+).([/d-]+)/){     $firstdate = $1;     $seconddate = $2; } 新方法： ($firstdate,$sec
String字符串匹配javascript 正则表达式
12-13
在JavaScript代码中使用正则表达式进行模式匹配经常会用到String对象和RegExp对象的一些方法，例如replace、match、search等方法，下面所述是对相关方法使用的总结，需要的朋友参考下。 String对象中支持正则表达式...
wps正则表达式 以及 wps通过正则表达式验证手机号码
最新发布
11-09
在Excel表格处理中，正则表达式是一种强大的文本匹配工具，可以帮助我们进行复杂的数据验证、查找和替换操作。虽然默认情况下，WPS Excel并不直接支持正则表达式，但通过其自定义函数功能，我们可以创建自己的函数来...
正则表达式模式匹配的String方法
12-13
在JavaScript代码中使用正则表达式进行模式匹配经常会用到String对象和RegExp对象的一些方法，例如replace、match、search等方法，以下是对一些方法使用的总结。 String对象中支持正则表达式有4种方法，分别是：...
C语言中的正则表达式使用示例详解
08-25
在C语言中，正则表达式的使用可以分为三步：编译正则表达式、匹配正则表达式和释放正则表达式。 编译正则表达式 在C语言中，可以使用`regcomp`函数来编译正则表达式。`regcomp`函数的原型为： ```c int regcomp...
linux shell 路径截取正则表达式
01-10
${file#*/}：拿掉第一条/及其左边的字串：dir1/dir2/dir3/my.file.txt ${file##*/}：拿掉最后一条/及其左边的字串：my.file.txt ${file#*.}：拿掉第一个.及其左边的字串：file.txt ${file##*.}：拿掉最后一个....
条款二十九：使用正则表达式的捕获功能
ace_fei的专栏
02-08 2361
转自：Perl高效编程（第2版） 条款二十九：使用正则表达式的捕获功能   虽然使用正则表达式可以非常方便地判断字串之间的模式匹配，但其作用远不止于此——它尤其适合对文本内容的分析和处理。而借助正则表达式的捕获功能，我们还可以从字串中自由提取感兴趣的部分。 1. 捕获变量：$1，$2，$3… 在使用正则表达式解析并捕获文本时，经常用到捕获变量$1, $2, $3等，依次类推。捕获变量
Perl中的匹配计数
Drömflicka的专栏
04-14 2417
帮同事应付考试写的小脚本！觉得挺有用的一段代码，就随手记下来了！ 目的：统计目标文件中Success的个数。 tips： 1. 对一行中出现多次关键字，在“/”后使用g来表明是全局查找（贪婪？） 2.用替换的方式便于记录出现的次数 3. 一行中替换的次数作为返回值 #test.log #what is Success Success; #the result is error
Perl-用正则表达式进行匹配1
Arkardia的博客
10-23 3139
1. 用m//进行匹配 到目前为止，都是把正则表达式写在一对斜线内，比如/fred/，这是简写版本，完整写法是m//（模式匹配操作符），这里的m表示英文match（匹配），和之前看过的qw//类似，可以自行选择用于包围内容的一对字符作为边界 所以可以还可以改写成m(fred)、m<fred>、m{fred}、m[fred] 不成对定界符没有左右之分，模式2边用同样的字符界定即可 如果选择一对斜线作为定界符，则可省略开头的m 最常见的定界符是花括号 尖括号（<与>）不是正则表达式元字符
Perl 正则表达式
liuqinhou的博客
01-13 1009
Jmeter接口测试
perl脚本实战总结
帝上无天的博客
03-01 1407
perl脚本实战总结。
perl 模式匹配总结
热门推荐
乌托邦的专栏
03-16 2万+
正则表达式――perl模式匹配补充：http://www.regexlab.com/zh/regref.htmPractiacl Extraction and Report Language一．模式匹配操作符1．tr/ / / 替换操作符不支持正则表达式 也不具备双引号替换能力      m/ /  s/ / / 都支持正则表达式，并且可以提供或限制双引号替换能力（当用单引号作
perl获取匹配行的后几行
bangherui6508的博客
09-01 1604
#!/usr/bin/perl #用正则表达式匹配某一行，匹配上之后获取匹配行的后面几行open (f,"D:\\file");while (<f>){if (/TOTAL ELASTIC/){$a=1;$b=0;}if ($a){print; $b=$b+1;$result=$result.$_;}if ($b==10){$a=0;}}print"------------...
强大的Perl正则表达式实例详解
sinat_40572875的博客
12-02 2499
正则表达式各语言都有自己的规范，但是基本都差不多，都是由元字符的组合来进行匹配；由于Nmap内嵌的服务与版本探测是使用的Perl正则规范，因此此篇博客记录一下Perl正则的相关内容，方便后期查阅。1）不同的场景、不同的语言，正则会有些许差别，只要掌握住基本的元字符以及相应的语言特性，真正用的时候花10几分钟时间熟悉一两个例子就能上手。3）在我理解，我们如果只是想达到我们抽取数据的目的，正则匹配的原理没有必要搞懂，会用就行。2）Perl正则是目前最优的，包括特性，建议读者学一学，这对处理数据有很大的好处。
perl脚本截取字符串和用正则截取字符串的两种方式
yyf960126的博客
01-07 9946
#!/usr/bin/perl my ${a}="cac_aaa_ccc"; 1.sustr截取 my ${b}=substr(${a},4); #aaa_ccc print "${b}\n"; 2.把cac_替换为空 ${a}=~ s/(^[a-z]*_){1}//gi;#把前面//中间的替换成后面*/的值 aaa_ccc print "${a}"; 3.把cac_匹配出来之后用$'输出...
5.Python正则表达式.ppt
10-23
另外，re模块还提供了其他一系列功能，比如re.search()函数用于在字符串中进行正则表达式匹配，re.findall()函数用于在字符串中查找所有匹配的字串等等。 在Python程序设计的第5章中，主要介绍了Python正则表达式的...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值