如何提取指定行下一行的数据

yyin7cqhc

下面是我的数据，我只想得到step2下一行的数据，并把它赋值给一个变量，该如何得到？

结果应该是：Steve Blenheim



---------------------------------------------
step1
Steve Blenheim:415-444-6677:12 Main St.
Betty Boop:303-223-1234:234 Ethan Ln.
Igor Chevsky:408-567-4444:3456 Mary Way
Norma Cord:555-234-5764:18880 Fiftieth St.
Jon DeLoach:201-444-6556:54 Penny Ln.
Karen Evich:306-333-7654:123 4th Ave.
step2
Steve Blenheim
Betty Boop
Igor Chevsky
Norma Cord
Jon DeLoach
Karen Evich
step3
Tom Dave Dan Tom
Betty Tom Henry Tom
Igor Norma Tom Tom

jason680

1. while(<FILE>){
   
2.    if(m/^step2$/){
   
3.        chomp($data = <FILE>);
   
4.    }
   
5. 
   
6. }

复制代码

jiannma

1. 
   
2. while (<FILE>){
   
3. 
   
4. if (/step2/){
   
5. my $next = <FILE>;
   
6. 
   
7. print $next;
   
8. }
   
9. 
   
10. 
    

复制代码

wxlfh

1. my $line;
   
2. while (<FILE>){
   
3.     if (/^\s*step2\s*$/){
   
4.         chomp($line = <FILE>);
   
5.         last;
   
6.     }
   
7. }
   
8. print $line;

复制代码

2gua

正则啊。

bernana

回复 4# wxlfh

ramsay_dan

回复 4# wxlfh
如果是抓取step2下面多行呢，比如到step3之前的全部抓出来，赋给变量或数组？
假如step2到step3之间的行数不确定

wxlfh

ramsay_dan 发表于 2018-08-19 21:13
回复 4# wxlfh
如果是抓取step2下面多行呢，比如到step3之前的全部抓出来，赋给变量或数组？
假如step2 ...

1. my @line;
   
2. while (<FILE>){
   
3.     if (/^\s*step2\s*$/../^\s*step3\s*$/){
   
4.         chomp;
   
5.         push @line, $_;
   
6.     }
   
7. }
   
8. print "@line\n";

复制代码

523066680

如果内容不是很大，读取整个文件到一个变量。用关键字+换行符做定位

1. use File::Slurp;
   
2. my $s = read_file( "data.txt" );
   
3. $s =~/(\r|\n|\r\n)step2(\r|\n|\r\n)(.+)(\r|\n)/;
   
4. print $3;

复制代码

ramsay_dan

回复 8# wxlfh
前辈，想问下perl输出excel如何按行给excel表格进行赋背景颜色