【perl脚本】打印模式匹配内容（摘自perl入门第五版）

最新推荐文章于 2022-07-09 18:48:20 发布

iteye_21199

最新推荐文章于 2022-07-09 18:48:20 发布

阅读量354

点赞数

本文介绍了一个使用Perl语言进行文本匹配的脚本示例。该脚本通过正则表达式来查找指定模式，并根据是否匹配输出相应信息。这对于理解Perl中正则表达式的用法非常有帮助。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!/usr/bin/perl
use strict;
use warnings;

while(<>){
	chomp;
    #if(/YOUR_PATTERN_GOES_HERE/){
    #if(/match/){
    if(/a/){
		print "Matched: | $`<$&>$'|\n";
	}
	else{
		print "No match: |$_|\n";
	}
}

运行脚本命令 #/bin/perl test.pl text.txt

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

iteye_21199

关注关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

无涯教程-Perl - print函数

无涯教程

08-12

812

无涯教程网提供描述此函数将LIST中的表达式的值打印到当前的默认输出文件句柄或FILEHANDLE指定的句柄...此函数将LIST中的表达式的值打印到当前的默认输出文件句柄或FILEHANDLE指定的句柄中。print接受一个值列表,列表中的每个元素都将被解释为一个表达式。Perl 中的 print函数 - 无涯教程网。如果设置,则$\变量将添加到LIST的末尾。如果失败,此函数返回0,如果成功,则返回1。如果LIST为空,则打印$_中的值。以下是显示其基本用法的示例代码-以下是此函数的简单语法-

Perl学习

Shaliew

08-08

3249

Perl入门工程想要学习Perl完全是因为好多公司的招聘要求，熟悉Perl或Tcl脚本语言，所以这个月初开始接触Perl，一本书“Perl语言入门_中文版_第六版.pdf”（或英文版“Learing Perl 6th Edition”）以及播布客的“Perl语言视频教程”，就这样启程。目标： Perl输入最简单的“Hello World！” 准备工作： WIN64环境下，官网下载Ac...

参与评论您还未登录，请先登录后发表或查看评论

利用perl脚本打印每行stdout信息的输出时间

sinat_38723234的博客

02-15

452

利用perl脚本打印每行stdout信息的输出时间 time ssh -v blob id 2>&1 | perl -pe ‘use Time::HiRes qw( time ); $_ = sprintf("%.6f %s", time(), $_)’ From https://www.depesz.com/2010/12/13/a-tale-of-slow-ssh-connect...

perl脚本调用练习和调用系统命令并展示输出信息

03-20

NULL 博文链接：https://fruitking.iteye.com/blog/799757

perl文件遍历匹配打印

qq_34110120的博客

12-02

995

#!/usr/bin/perl 例子: chomp ($path=`pwd`);去掉换行 @ls =`ls`;将当前文件赋给一个变量 $path1 = $path."/";拼接路径 print "$path1\n";打印拼接路径 if (-e "$path1."1"") {//检测打印文件是否存在 print STDERR ("File file1 exists...

Perl语言入门：数组元素访问与特殊索引

本文档摘自《Perl语言入门》第四版，由Brian D. Foy等作者编写。这本书旨在引导读者了解和掌握Perl编程语言。在内容上，文档主要涵盖了数组的访问和特殊索引。在数组的访问方面，Perl中的数组可以通过索引值来访问...

Perl正则表达式详解：从基础到高级应用

Perl正则表达式是一种强大的文本处理工具，用于在字符串中搜索、匹配和操作模式。本文档摘自《Perl编程详解》，主要围绕以下几个关键知识点展开： 1. **原则介绍**： - 文档详细介绍了Perl正则表达式的八条原则，...

fceux源码解析_FCEUX金手指加强版 - 使用Lua脚本语言编写FC/NES金手指脚本

weixin_35045900的博客

12-28

1718

一直觉得大部分的FC/NES模拟器的作弊码金手指不是那么方便使用, 比如魂斗罗1代, 玩家的武器可以通过修改0xAA的值来改变: 0x11为M弹(重机枪),0x12为F弹(圈圈),0x13为S弹(散弹),0x14为L弹(激光束), 于是金手指就像下面这样: 00AA-01-11 M弹 00AA-01-12 F弹 ....... 这种修改的方式显得比较死板, 而且大部分的模拟器金手指没有分类, 全部...

学什么脚本

weixin_44915807的博客

07-09

1543

芯片领域学什么脚本

Perl脚本实例

01-12

Perl脚本实例，其中包含常用的基本语法，便于学习掌握

perl之print、printf、sprintf的使用

热门推荐

学而不思则罔，思而不学则殆

04-30

3万+

print printf sprintf 区别参考文档详细用法，可以查看perl用户手册。 perldoc -f print perldoc -f printf perldoc -f sprintf他们各自支持的命令格式，都有三四种。但是常用的，也就一两种。print常用： print LIST print FILEHANDLE LIST不常用（主要是因为隐含的细节，会导致阅读上的障碍吧

Perl: 同时在屏幕和文件打印输出

davidliu007的专栏

11-22

8818

Perl 代码实现： #!/usr/bin/perl use strict; use warnings; use diagnostics; open(LOG, '>', 'LOG_FILE') or die "Can't redirect stdout: $!"; open(CMD, 'ls |'); open(STDERR, '>&', STDOUT) or die "Can't redi

perl实现，匹配并打印一个段落

学而不思则罔，思而不学则殆

01-16

2358

有一个应用场景，实现后，觉得还是记录下来。以后还会遇到的。举例根据## ==这样的行，匹配并打印该段落范围的所有行。另外一点，打印出的内容，只允许存在max最大值和min最小值。 ######## ## sdsdfsdf ## 1123123 ######## ## ======== 1sdfs ====== ## ====== 2saas ====== max 0.2323 max

perl 模式匹配总结

乌托邦的专栏

03-16

2万+

正则表达式――perl模式匹配补充：http://www.regexlab.com/zh/regref.htmPractiacl Extraction and Report Language一．模式匹配操作符1．tr/ / / 替换操作符不支持正则表达式也不具备双引号替换能力 m/ / s/ / / 都支持正则表达式，并且可以提供或限制双引号替换能力（当用单引号作

perl输出环境变量

海内存知己，天涯若比邻

10-10

1560

windows中my computer-->advanced->envirenment查看总是看得不是很清楚刚做MTK平台上的开发时,老是遇到工具安装不正确的问题,大多时候是因为环境变量没设好本程序提供将环境变量输出到一个文本里便于查看确认 #!/usr/local/bin/perl open(MYFILE,">env.txt"); foreach $field (k

Perl获取匹配行之后的后几行

bangherui6508的博客

08-22

722

#!/usr/bin/perlopen (f,"D:\\excel");while ($lines=<f>){if ($lines=~/TOTAL ELASTIC/){$line_number=$.;$line_control=1;}next if ($line_control==0);#next后面的不执行，直接跳到循环开始的地方，相当于python中contiueprin...

【perl脚本】打印模式匹配内容（摘自perl入门 第五版）

【perl脚本】打印模式匹配内容（摘自perl入门第五版）