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

wxlfh

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

复制代码

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";

复制代码

wxlfh

ramsay_dan 发表于 2018-09-03 10:35
回复 8# wxlfh
前辈，想问下perl输出excel如何按行给excel表格进行赋背景颜色

你可以看Win32::OLE模块的文档啊，请点击我