如何基于Perl数组元素创建对应文件名的.txt文件？

你的代码核心问题是在循环中错误使用了数组变量@engineer_list，而非当前循环的元素。Perl的foreach循环默认会将当前数组元素存入$_变量，或者你也可以显式声明循环变量来更清晰地指代当前元素。

修正后的代码（默认变量写法） #

foreach (@engineer_list) {
    my $filename = "$_.txt";
    # 使用词法文件句柄替代旧式裸字句柄，更安全
    open my $engineer_fh, '>', $filename or die "无法打开文件 $filename 进行写入: $!";
    close $engineer_fh; # 务必关闭文件句柄
}

更清晰的显式变量写法 #

如果你觉得默认变量$_不够直观，可以显式声明循环变量：

foreach my $engineer (@engineer_list) {
    my $filename = "$engineer.txt";
    open my $engineer_fh, '>', $filename or die "无法打开文件 $filename 进行写入: $!";
    close $engineer_fh;
}

关键说明 #

• 用当前循环元素（$_或$engineer）拼接文件名，而非直接使用数组变量@engineer_list
• 采用词法文件句柄（my $engineer_fh）是Perl的现代最佳实践，避免全局变量冲突
• die语句中加入$!可以输出系统级错误信息，帮助快速定位问题
• 操作完成后关闭文件句柄，确保文件内容正确写入并释放资源

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