基于文件内容用Perl重命名文件的技术问题求助

修正后的完整代码 #

use strict;
use warnings;

# 原文件名
my $input_file = 'JAR28235.txt';
# 固定儒略日期
my $julian_date = '22356';

my ($job_name, $job_number);

# 打开原文件读取内容
open(my $in_fh, '<', $input_file) or die "无法打开文件 $input_file: $!";

while (my $line = <$in_fh>) {
    chomp $line;
    next if $line =~ /^\s*$/;

    # 提取作业名（匹配如L27YG235的格式）
    if ($line =~ /([A-Z][A-Z0-9]{4}235)/) {
        $job_name = $1 unless defined $job_name; # 仅保留第一个匹配结果
    }

    # 提取作业号（从JOBxxxxxx中捕获数字部分）
    if ($line =~ /JOB(\d{5})/) {
        $job_number = $1 unless defined $job_number; # 仅保留第一个匹配结果
    }

    # 提取到所有必要信息后提前退出循环
    last if defined $job_name && defined $job_number;
}
close($in_fh);

# 校验提取结果，避免后续错误
die "未找到作业名或作业号" unless defined $job_name && defined $job_number;

# 生成目标文件名
my $output_file = "$job_name#$job_number-$julian_date.txt";

# 方案1：将原文件内容复制到新文件（保留原文件）
open(my $out_fh, '>', $output_file) or die "无法创建文件 $output_file: $!";
open($in_fh, '<', $input_file) or die "无法打开文件 $input_file: $!";
print $out_fh $_ while <$in_fh>;
close($in_fh);
close($out_fh);

# 方案2：直接重命名原文件（原文件将被替换）
# rename($input_file, $output_file) or die "重命名失败: $!";

print "处理完成，新文件名: $output_file\n";

关键修复点说明 #

1. 启用严格模式：添加use strict; use warnings;，强制变量声明、捕获语法错误，避免隐性bug
2. 正确提取信息：
   • 作业名：用正则捕获组([A-Z][A-Z0-9]{4}235)直接提取目标字符串
   • 作业号：用JOB(\d{5})捕获数字部分，直接得到03635而非完整的JOB03635
3. 优化遍历逻辑：找到所需信息后立即退出循环，提升处理效率
4. 文件名生成：使用双引号字符串插值，语法简洁且符合Perl规范
5. 错误校验：在生成文件名前检查是否成功提取到作业名和作业号，避免无效操作
6. 灵活的文件处理方式：提供复制内容和直接重命名两种方案，可根据需求选择

原代码问题梳理 #

• 未启用strict/warnings，容易出现变量未声明等低级错误
• 第二个循环位于while循环外部，无法遍历文件所有行，导致无法正确提取信息
• 正则未使用捕获组，无法分离作业号的数字部分
• 文件名拼接语法错误（Perl中字符串拼接需用.，而非直接连写）
• 缺少提取结果校验，可能在未获取到关键信息时继续执行，引发错误

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