Board logo

标题: [问题求助] Perl怎样获取指定字符串所在行的上N行和下M行？ [打印本页]
作者: DAIC    时间: 2011-6-6 12:22     标题: Perl怎样获取指定字符串所在行的上N行和下M行？

a.txt内容如下：
111perl
222perl
333perl
444perl
555perl
666perl

假设N=2，M=1，想获取字符串“444perl”所在行的上两行到下一行之间的内容：
222perl
333perl
444perl
555perl
作者: sxw    时间: 2011-6-6 21:57

  1. #usr/bin/perl

  2. open (FH,"<a.txt") || die "Can't find it\n";

  3. while (<FH>) {

  4. $a=$. if /444perl/;

  5. }

  6. close FH;

  7. open (FH,"<a.txt") || die "Can't find it\n";

  8. $b=$a-2;

  9. $c=$a+1;

  10. if ($b..$c) {print};

  11. close FH;
复制代码
求高人简化一下。用seek出现问题了：行号变了
作者: 523066680    时间: 2011-6-6 22:22

我觉得一般可能要考虑一段落中如果出现 多个 444perl的情况……
罢了，先大致做一下，有细节再说。学习学习
  1. open READ,"<src.txt";

  2. @all=<READ>;

  3. $n=2;

  4. $m=1;

  5. $line=0;

  6. foreach (@all) {

  7. 	chomp;

  8. 	$line+=1;

  9. 	if (/^444perl$/) {

  10. 		for $tmp (($line-$n) .. ($line+$m)) {

  11. 			print "Line$tmp : $all[$tmp-1]\n";

  12. 		}

  13. 	}

  14. }

  15. <STDIN>;
复制代码
以上代码只是对存在444perl行的前两到后一行进行枚举，并没有判断范围是否超标。
作者: Batcher    时间: 2011-6-6 22:25

2# sxw


你是不是下面这个想法？
  1. open (IN,"a.txt");

  2. while (<IN>) {

  3.     $a = $. if /444perl/;

  4. }

  5. close IN;

  6. my $b = $a - 2;

  7. my $c = $a + 1;

  8. open (IN,"a.txt");

  9. while (<IN>) {

  10.     print if $. >= $b && $. <= $c;

  11. }

  12. close IN;
复制代码




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2