perl 跨行匹配文件内容双层过滤

日志特点：分段，格式固定；取出所需数字按格式写到另外的文件

需要用perl实现将made和lose的数据如数到result.txt文件中，结果数据格式如下： Teacher: 6 4 6 4 6 4 Student: 6 4 6 4 6 4 数字之间用tab间隔

#!/bin/perl -wusestrict;my($a,$b,$c);openmy$data,"< data.txt"or die$!;while(<$data>) {if(/^Teacher/sbegin/sfirst/../^pass/ssucceed/){if(/^Ball/){chomp($a=(split':',$_)[4]);$b.=$a."/t";}}if(/^Student/sbegin/sfirst/../^pass/ssucceed/){if(/^Ball/){chomp($a=(split':',$_)[4]);$c.=$a."/t";}} }close$data;openmy$fh,">result.txt";print$fh"Teacher:/n"; print$fh$b."/n";print$fh"Student:/n"; print$fh$c."/n";close$fh;=head__DATA__We will test Group1...Teacher begin first -name A:applaud number 100:not applaud number 100Ball number:10:attempt:10made:6Ball number:10:attempt:10lose:4pass succeed We will test Group1...Teacher begin first -name B:applaud number 100:not applaud number 100Ball number:10:attempt:10made:6Ball number:10:attempt:10lose:4pass succeed We will test Group1...Teacher begin first -name C:applaud number 100:not applaud number 100Ball number:10:attempt:10made:6Ball number:10:attempt:10lose:4pass succeed We will test Group1...Student begin first -name A:applaud number 100:not applaud number 100Ball number:10:attempt:10made:6Ball number:10:attempt:10lose:4pass succeed We will test Group1...Student begin first -name B:applaud number 100:not applaud number 100Ball number:10:attempt:10made:6Ball number:10:attempt:10lose:4pass succeed=cut

perl 跨行匹配文件内容双层过滤相关推荐

linux find查找多个关键字,Linux小技巧：find . | xargs grep -ri 关键字 -l —— 查询、匹配文件内容关键词...
大家在工作中,是否遇到需要查询某个文件下内容中的关键词是否存在.例如: 需要查询在/etc/passwd下是否存在"yasuo"关键字: [[email protected] ~] ...
学习笔记：内容安全过滤技术
#内容安全过滤技术总体介绍文件内容过滤文件过滤流程内容过滤过滤类型关键字内容过滤处理流程邮件过滤邮件协议介绍 RBL黑名单的查询邮件内容过滤应用行为控制技术总体介绍文件过滤技 ...
文件内容替换：SED 命令和 Perl
Linux文件内容替换 Perl 把文件file.txt中的before改为after perl -pi -e 's/before/after/g' file.txt -p 表示匹配文件的每一行 ...
过滤文件内容（windows和Mac及ubuntu）
windows系统可以使用TextFilter软件 linux系统(包含mac) grep "过滤内容" 要过滤的文件如:grep "BasePage___" ...
linux 上使用wc -l命令快速查看文件内容有多少行，以及如何匹配指定字符查看多少行
1 linux的cat -n命令查看文件内容一共有多少行 1.cat -n命令查看文件多少行 cat -n filename 如:cat -n gallery_color_depth.txt - 2. ...
正则匹配html标签和内容,正则匹配HTML标签（不保留内容和保留内容、过滤标签的的属性）...
1.匹配双标签(包括内容),过滤标签,不保留内容. var reg1 = /]*>(.|\n)*/gi; var str1 = '我是被删除的123123'; console.log(str1. ...
python将两个excel匹配_Python3实现两个Excel文件内容比对
#-*- coding: utf-8 -*- #比对两个Excel文件内容的差异 #---------------------假设条件---------------- #1.源表和目标表格式一致 #2 ...
perl 文件内容替换
命令: perl 命令可以批量替换文件中的一些内容,操作起来非常高效.下面举几个例子: perl -pi -e "s/aaa/bbb/gi" test.txt 上面的命令把test ...
PHP获取随机数据，匹配出内容，存文件
一.流程二.代码三.文件内容一.流程 1.getRandData()随机方法返回一条html数据 2.匹配出数据中的内容 3.判断文件是否存在 3.1.存在,则判断数据是否已存入文件 3.11. ...

perl 跨行匹配文件内容双层过滤