我觉得一般可能要考虑一段落中如果出现 多个 444perl的情况……
罢了,先大致做一下,有细节再说。学习学习- open READ,"<src.txt";
- @all=<READ>;
- $n=2;
- $m=1;
- $line=0;
- foreach (@all) {
- chomp;
- $line+=1;
- if (/^444perl$/) {
- for $tmp (($line-$n) .. ($line+$m)) {
- print "Line$tmp : $all[$tmp-1]\n";
- }
- }
- }
- <STDIN>;
复制代码 以上代码只是对存在444perl行的前两到后一行进行枚举,并没有判断范围是否超标。 |