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

需要用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 跨行匹配文件内容 双层过滤的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。