小编Mak*_*uza的帖子

假设我有一个文本文件：

Line 1
Line 2
Target Name1
Line 3
Line 4
Line 5
Line 6
Target Name2
Line 7
Line 8
Line 9
Line 10

我希望能够搜索目标模式（文本文件中可能有多个，如上例所示），然后打印出一定数量的跟随它的行。让我们说3行。那么我想要的输出是

Target Name1
Line 3
Line 4
Line 5

Target Name2
Line 7 
Line 8
Line 9

到目前为止，我所拥有的只是查找目标并将其打印出来的代码：

use strict;
use warning;
open (my $INFILE, $input_file);
my $outfile = "output.txt";
open (my $OUTFILE, '>', $outfile);

my $name;

while (my $line = <$INFILE>) {
  if ($line =~ m#TARGET\s+(\S+)#){
    $name = $1;
    print $OUTFILE "Target $name\n";
  } …

您好，我想将日期存储在变量$ date中。然后，我将使用Excel :: Writer :: XLSX将日期打印到单元格中。我正在使用perl 5.8。我知道很多用于获取日期的模块（例如TimePiece）已安装在更高版本的perl中。