如何用Perl实现从文件复制内容至指定关键词处

没问题，我来帮你修改Perl代码，实现只复制到指定关键词为止的功能。这里有两种常见的场景，你可以根据需求选择：

场景1：包含关键词所在的行 #

这种情况下，关键词所在的行会被写入目标文件，之后停止复制。代码示例如下：

#!/usr/bin/perl
use strict;
use warnings;

# 配置文件路径和关键词
my $readfile = 'input.txt';
my $writefile = 'output.txt';
my $stop_keyword = 'YOUR_KEYWORD'; # 替换成你实际要使用的关键词

# 打开输入输出文件
open(my $in_fh, '<', $readfile) or die "无法打开读文件 $readfile: $!";
open(my $out_fh, '>', $writefile) or die "无法打开写文件 $writefile: $!";

while (my $line = <$in_fh>) {
    # 先写入当前行到目标文件
    print $out_fh $line;
    
    # 检查当前行是否包含关键词（大小写敏感）
    # 如果需要忽略大小写，把正则改成 /$stop_keyword/i
    if ($line =~ /$stop_keyword/) {
        last; # 触发停止，退出循环
    }
}

# 关闭文件句柄
close $in_fh;
close $out_fh;

print "内容已成功复制到指定关键词为止！\n";

场景2：不包含关键词所在的行 #

如果希望在遇到关键词时直接停止，不把关键词行写入目标文件，可以调整代码顺序：

#!/usr/bin/perl
use strict;
use warnings;

my $readfile = 'input.txt';
my $writefile = 'output.txt';
my $stop_keyword = 'YOUR_KEYWORD';

open(my $in_fh, '<', $readfile) or die "无法打开读文件 $readfile: $!";
open(my $out_fh, '>', $writefile) or die "无法打开写文件 $writefile: $!";

while (my $line = <$in_fh>) {
    # 先检查关键词，遇到则停止
    if ($line =~ /$stop_keyword/) {
        last;
    }
    # 未遇到关键词则写入行
    print $out_fh $line;
}

close $in_fh;
close $out_fh;

print "内容已复制到关键词之前的所有行！\n";

几个关键说明： #

• 加上use strict;和use warnings;是Perl的最佳实践，能帮你提前发现代码里的潜在错误
• die语句会在文件打开失败时输出具体错误信息，方便排查问题
• 逐行读取文件的方式更适合大文件，不会占用过多内存
• 正则匹配默认是大小写敏感的，如果需要忽略大小写，在正则末尾加i修饰符（比如/$stop_keyword/i）

内容的提问来源于stack exchange，提问作者Somesh Pokarne