为何Perl脚本中unlink无法删除while循环最后生成的临时文件？

我编写了一个Perl脚本，会创建临时文件用于后续处理，处理完成后需删除这些文件。但发现while循环中最后创建的那个文件始终无法通过unlink删除，报错cannot unlink file - Permission denied，推测是文件未关闭问题，但未能定位。

原创建文件代码 #

# Creates a temp file for each of the guys with every stock item from the products listed against their name.
open ENG_LIST, 'engineer_list.txt' or die "Can't open engineer_list.txt
";
mkdir './Temp';
while ($line = <ENG_LIST>) {
    chomp $line;
    @products = split(/\|/, $line);
    $engineer = shift @products;
    push @engineer_list, $engineer;
    $fh = "./Temp/$engineer.txt";
    foreach $product (@products) {
        open $output, ">>:raw", "./Temp/$engineer.txt" or die "Unable to open ./Temp/$engineer.txt for appending: $!
";
        open $input, "<:raw", "./Products/$product.txt" or die "Unable to open ./Products/$product.txt for reading: $!
";
        print {$output} <$input>;
    }
    close ($fh);
    undef @products;
}
close (ENG_LIST);

原清理代码 #

# Cleaning up all the temp files.  Need to fix this because it doesn't work!
@del_files = glob ('./Temp/*.txt');
foreach $del_file (@del_files) {
    chomp $del_file;
    close ($del_file);
    unlink "$del_file";
}
rmtree ('./Temp');

问题根源 #

1. 文件句柄泄露：在foreach $product循环中，每次处理产品都会重新打开输出文件句柄$output，但从未关闭过。每次open会覆盖之前的$output变量，导致之前的文件句柄被遗弃，最后一个文件的句柄始终处于打开状态，系统锁定文件导致无法删除。
2. 无效的close操作：close ($fh)完全没用，$fh是文件路径字符串，不是文件句柄，close只能用于关闭文件句柄，对路径字符串执行close毫无意义。
3. 清理代码的错误操作：close ($del_file)同样无效，$del_file是文件名，不是文件句柄，close操作在这里纯属多余。

修正后的代码 #

创建文件部分 #

# 为每个工程师创建临时文件，写入对应所有产品的内容
open my $eng_list_fh, '<', 'engineer_list.txt' or die "无法打开engineer_list.txt: $!";
mkdir './Temp' unless -d './Temp'; # 避免目录已存在时报错

my @engineer_list;
while (my $line = <$eng_list_fh>) {
    chomp $line;
    my @products = split(/\|/, $line);
    my $engineer = shift @products;
    push @engineer_list, $engineer;
    
    my $temp_file = "./Temp/$engineer.txt";
    # 每个工程师仅打开一次输出文件，避免重复打开导致句柄泄露
    open my $output_fh, ">>:raw", $temp_file or die "无法打开$temp_file追加内容: $!";
    
    foreach my $product (@products) {
        my $product_file = "./Products/$product.txt";
        open my $input_fh, "<:raw", $product_file or die "无法打开$product_file读取内容: $!";
        print {$output_fh} <$input_fh>;
        close $input_fh; # 读完产品文件立即关闭句柄
    }
    
    close $output_fh; # 写完所有产品后关闭临时文件句柄
}
close $eng_list_fh;

清理文件部分 #

# 清理临时文件
my @del_files = glob('./Temp/*.txt');
foreach my $del_file (@del_files) {
    unlink $del_file or warn "无法删除$del_file: $!";
}
rmtree('./Temp') or warn "无法删除Temp目录: $!";

关键优化点 #

• 使用词法文件句柄（my $fh）替代旧式裸字句柄，词法句柄会在超出作用域时自动关闭，大幅降低句柄泄露风险。
• 每个工程师的临时文件仅打开一次，处理完所有产品后再关闭，避免重复打开导致的资源占用和句柄泄露。
• 读取产品文件后立即关闭句柄，养成及时释放资源的习惯。
• 移除无效的close操作，仅对真正的文件句柄执行close。

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