Perl多文件读取时如何设置文件处理优先级？

要实现优先处理Creation_extra.txt，接着处理Delete.txt，其余文件按原有逻辑处理的需求，可通过拆分文件列表、分批次处理的方式实现，具体修改如下：

修改后的核心代码 #

opendir(INPUT_DIR, $ENV{INPUT_DIR}) || die "Error in opening dir $ENV{INPUT_DIR}";
my @input_files = grep {!/^\./} readdir(INPUT_DIR);
closedir(INPUT_DIR); # 补充关闭目录句柄，避免资源泄漏

# 按优先级顺序定义需要优先处理的文件
my @priority_files = ('Creation_extra.txt', 'Delete.txt');

# 第一批次：处理优先级文件
foreach my $priority_file (@priority_files) {
    # 确认文件存在且符合匹配规则
    if (grep { $_ eq $priority_file } @input_files && $priority_file =~ m/^$proc_mask$/i) {
        # 此处写入你的文件处理逻辑
        # processing files
    }
}

# 第二批次：处理剩余符合条件的文件（跳过已处理的优先级文件）
foreach my $input_file (@input_files) {
    next if grep { $_ eq $input_file } @priority_files;
    if ($input_file =~ m/^$proc_mask$/i) {
        # 此处写入你的文件处理逻辑
        # processing files
    }
}

关键说明 #

• 可控优先级排序：通过显式定义优先级文件列表，彻底摆脱系统默认目录排序的影响，确保执行顺序符合需求
• 分批次执行：先处理指定优先级文件，再处理剩余文件，逻辑清晰且易于维护
• 存在性校验：通过grep确认优先级文件确实存在于目标目录，避免无效处理
• 资源优化：补充closedir操作，修复原代码遗漏的目录句柄关闭问题

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