Perl正则表达式模式测试程序

最新推荐文章于 2022-04-14 20:18:10 发布
最新推荐文章于 2022-04-14 20:18:10 发布
阅读量751 收藏
点赞数
分类专栏： Perl
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/rockiecxh/article/details/25214223
版权
可用来检测某些字符串是否能被指定的模式匹配:

#!/usr/bin/perl
while (<>) { # 每次读一行输入, 可以考虑用文件输入或键盘输入
chomp;
if (/YOUR_PATTERN_GOES_HERE/) {
print "Matched: |$`<$&>$'|\n"; # 特殊匹配变量
} else {
print "No match: |$_|\n";
}
}

$`, $&, $'分别代表: 匹配之前所忽略部分, 匹配到的部分, 尚未匹配到的部分

rockiecxh
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Perl正则表达式超详细教程
weixin_34308389的博客
09-14 6447
前言 想必学习perl的人，对基础正则表达式都已经熟悉，所以学习perl正则会很轻松。这里我不打算解释基础正则的内容，而是直接介绍基础正则中不具备的但perl支持的功能。关于基础正则表达式的内容，可参阅基础正则表达式。 另外，本系列只介绍匹配操作，关于内容替换，因为和学习使用perl正则并无多大关系，所以替换相关的将在下一篇文章单独解释。 这里推荐一个学正则非常好的资料：stackflow上关于各...
Perl从文本文件中按关键字提取数据
rockiecxh的专栏
03-04 9666
#!/usr/bin/perl -w #require "convertword.pl"; use strict; use warnings; use Cwd; use File::Spec::Functions qw( catfile ); # 转换格式 print "转换Word为文本文件...\n"; #&convertWord(); `perl c
好用的PERL正则表达式在线测试工具
琴剑飘零
09-24 5620
http://www.perlfect.com/articles/regextutor.shtml
Perl代码片段-正则表达式测试程序
weixin_33840661的博客
05-03 82
参考《Perl语言入门》的一个正则表达式简单测试程序： 1 #!/usr/bin/perl 2 use warnings; 3 use strict; 4 5 my $pattern=$ARGV[0]; 6 if(not $pattern){ 7 print "Usage: ./ret.pl PATTERN\n"; 8 exit; 9 } ...
perl 正则式 关于分组匹配的4个测试
qingshuiaishui的专栏
06-15 667
#! perl #非捕获分组 $str = 'wang haojie  aab haojie  ccdaabe' . 'goo'; print "str=#$str#\n"; if($str =~ /(?:ng\s+)(haojie\s+)aab\s\1/) { print 'matched'."\n"; print "#$1#","\n"; print '$`=',$`,"\
perl正则表达式练习
yu_bio的博客
08-31 457
perl正则表达式初级练习网站：https://regexone.com/
Perl正则表达式(2) - 用正则表达式进行匹配
追梦赤子心
12-15 3811
Perl正则表达式 2. 用正则表达式进行匹配 2.1 用 m// 进行匹配 到目前为止，我们都是讲正则表达式的内容写在一对斜线内，如/fred/。但其实这是 m// 的简写，其中m代表match，和之前看到的 qw// 类似，我么可以自行选择用于保卫内容的一堆字符作为边界，所以上面这个例子可以改写为m{fred},m[fred],m!fred!等。 在不冲突的情况下，建议使用双斜线 // 或 ...
正则表达式
12-03
JavaScript采用的是Perl语言正则表达式语法的一个相当完整的子集. 正则表达式的模式规范是由一系列字符构成的.大多数字符(包括所有字母数字字符)描述的都是按照字面意思进行匹配的字符.这样说来,正则表达式/java/...
PCREck:用于 PCRE 正则表达式编写和检查的 Web 界面
06-17
rgx 用于编写和检查正则表达式的接口。 类似于用于 Ruby 的正则表达式。规格捕获样本 { "offset" : Array ( Number , Number ) , "captures" : Array ( Array ( Number , Number ) ) , "status" : "RC_MATCH"} 错误...
精通正则表达式~~~
05-07
正则表达式相关的Perl教义... 293 表达式应用场合... 294 动态作用域及正则匹配效应... 295 匹配修改的特殊变量... 299 qr/…/运算符与regex对象... 303 构建和使用regex对象... 303 探究regex对象... 305 ...
Perl高级教程人称“大骆驼”(免费)
10-11
1.7 正则表达式......................................................................................................................40 1.7.1 量词..........................................................
Perl语言入门(第五版-中文版).pdf
11-02
模式测试程序 习题 第九章用正则表达式处理文本 用s／／／替换 可选修饰符 split操作符 join函数 列表上下文中的m／／ 更强大的正则表达式 习题 第十章其他控制结构 unless控制结构 until控制结构 条件...
正则表达式测试工具（regexbuddy）
01-21
正则表达式测试工具，适用于好几种语言，比如.net,java,perl,ruby等
10个正则表达式测试站
ykblog.github.io
05-14 1903
正则表达式，提供了简洁、灵活的手段，用于匹配文本字符串，如特定的字符，文字或字符样式。它对于初学者理解和使用所有的正则表达式语法是个头疼的事情。幸运的是，你可以获得在线帮助。 在这篇文章中，列举了10个正则表达式测试站，当你写入代码前，可获得在线测试的帮助。 1、RegExr 2、Online Regular Expression Tester 3、RETe
perl基本语法四-正则表达式
xulu1588的博客
04-14 2072
文章目录1.模式匹配2.反向引用3.常用符号4.锚位5.绑定操作符~6.模式串中的内插7.捕获变量1.捕获变量（）2.只分组不捕获（?:）3.捕获变量命名（?<>）4.反向引用\g<>或\k<>8.正则表达式的优先级9.用s///进行匹配1.全局替换s///g2.替换中使用的符号正则表达式的特殊变量练习题目1.模式测试程序2.数字的正则表达式 1.模式匹配 使用/ /进行正则匹配 正则表达式符号 含义 元字符. 匹配除换行符（\n）的任意一个字符 量词
perl 正则表达式 匹配字符串 或逻辑
学而不思则罔，思而不学则殆
09-23 7208
mark，备忘#!/usr/local/bin/perluse strict; use warnings;my @data=qw( nihao wohao ); foreach(@data){ if($_ =~ /^(ni|wo)hao$/){ print $_ } }
Perl获取数组长度
热门推荐
rockiecxh的专栏
05-08 2万+
列表/数组的长度 当数组变量出现在预期简单标量出现的地方，则Perl解释器取其长度。 @array = (1, 2, 3);  $scalar = @array; # $scalar = 3,即@array的长度  ($scalar) = @array; # $scalar = 1,即@array第一个元素的值, 列表赋值 注：以数组的长度为循环次数可如下编程： my $count = 0;
Perl 正则表达式方言
最新发布
11-14
Perl 正则表达式是一种广泛使用的正则表达式方言，它支持许多扩展和缩写，使得编写复杂的模式变得更加容易。以下是一些 Perl 正则表达式的常见扩展和缩写： - \s：匹配任意空白字符，包括空格、制表符、换行符等。 - \w：匹配任意字母数字字符，包括字母、数字和下划线。 - \d：匹配任意数字字符，等价于 [0-9]。 - +：匹配前面的元素一次或多次。 - *：匹配前面的元素零次或多次。 - ?：匹配前面的元素零次或一次。 - {n}：匹配前面的元素恰好 n 次。 - {n,}：匹配前面的元素至少 n 次。 - {n,m}：匹配前面的元素至少 n 次，但不超过 m 次。 下面是一个示例，演示如何使用 Perl 正则表达式来匹配一个字符串中的数字： ```perl $str = "abc123def"; if ($str =~ /(\d+)/) { print "Matched: $1\n"; # 输出：Matched: 123 } ```

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

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

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值