在perl中自动删除子进程中的临时文件

use strict;
use warnings;

# 创建临时文件
my $temp_file = "temp.txt";
open(my $fh, '>', $temp_file) or die "无法创建临时文件: $!";
print $fh "这是一个临时文件\n";
close($fh);

# 创建子进程
my $pid = fork();
die "无法创建子进程: $!" unless defined $pid;

if ($pid == 0) {
    # 子进程中的操作
    # 在这里可以使用临时文件进行一些处理

    # 删除临时文件
    unlink $temp_file or warn "无法删除临时文件: $!";
    exit;  # 子进程退出
}

# 父进程中的操作
# 等待子进程退出
waitpid($pid, 0);

# 在父进程中也可以继续使用临时文件进行一些处理

# 删除临时文件
unlink $temp_file or warn "无法删除临时文件: $!";