小编Som*_*rne的帖子

以下代码用于将文件内容从readfile复制到writefile。而不是复制到最后，我想复制到某个关键字。

use strict;
use warnings;

use File::Slurp;

my @lines = read_file('readfile.txt');

while ( my $line = shift @lines) {
  next unless ($line =~ m/END OF HEADER/);
  last; # here suggest some other logic 
}

append_file('writefile.txt', @lines);