Perl脚本文件句柄复用报错求助：判断句柄存在性并写入

你的代码里的几个关键问题： #

• 正则匹配用了赋值运算符=，Perl里正确的正则匹配运算符是=~，用=会导致逻辑完全错误
• 错误地用print给$outfile赋值，直接字符串拼接生成文件名即可
• 单个变量无法区分不同authHost对应的文件句柄，得用哈希表来做映射
• 用-f判断文件句柄是否存在是错误的，-f是检查文件是否存在，不是检查句柄是否已打开
• print语句语法错误，正确格式是print 文件句柄 "内容";

修正后的完整代码 #

use strict;
use warnings;

# 用哈希存储每个authHost对应的文件句柄，键是authHost值，值是打开的文件句柄
my %auth_handles;
# 假设你通过命令行传参输入文件名，若有其他来源可替换此处
my $filename = $ARGV[0]; 

# 打开输入文件
open(my $fh, '<', $filename) or die "无法打开输入文件 '$filename'：$!";

while (my $line = <$fh>) {
    chomp $line;
    # 正确使用正则匹配运算符=~，捕获authHost的值
    if (my ($authHost) = $line =~ /authHost="(.*?)"/) {
        print "找到authHost: $authHost\n"; # 可选调试输出
        
        my $outfile = "$authHost-auth-events.out";
        
        # 检查当前authHost对应的句柄是否已存在（文件是否已打开）
        if (!exists $auth_handles{$authHost}) {
            # 不存在则打开文件（追加模式），把句柄存入哈希
            open($auth_handles{$authHost}, '>>', $outfile) 
                or die "无法打开输出文件 '$outfile'：$!";
        }
        
        # 写入当前行到对应文件，大括号用于明确区分文件句柄和字符串
        print {$auth_handles{$authHost}} "$line\n";
    }
}

# 遍历关闭所有打开的输出文件句柄，避免资源泄漏
foreach my $handle (values %auth_handles) {
    close $handle;
}

close $fh;

关键改动说明： #

1. 用%auth_handles哈希表来管理不同authHost的文件句柄，通过exists判断句柄是否已创建，完美实现复用
2. 修正正则匹配逻辑，确保正确捕获authHost的值
3. 修正输出文件名的生成方式，去掉错误的print赋值操作
4. 规范print语句的语法，明确指定输出的文件句柄
5. 最后统一关闭所有输出句柄，避免资源占用

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