perl - 在perl中的一行末尾附加一个数组

Question

在此之前我有更多代码填充数组@a_nam。现在我想在 abc.txt 中下面显示的行的末尾附加数组 @a_nam 中的元素。我尝试了一些但它不起作用。请提供您的意见。编辑:我尝试了“+>>”，但没有用。

## NAME_id , course, Fall 10 ,spring 11, ........

open my $file, '+>>', 'abc.txt' or die "failed : $!";
while (<$file>) {
    chomp;
    if (/^## NAME(.*)/) {
       print  $file join ",", @a_nam;
    }   
}
close($file);

Answer 1

您打开文件进行追加

open my $file, '>>'

然后你尝试从文件中读取

while (<$file>)

这是不可能的。打开文件进行读取和写入另一个文件。最后，将旧文件重命名为备份文件，将新文件重命名为原始文件。