perl - 当我从 cmd 运行脚本后，在 perl 脚本中打开文件后无法再次打开文件

Question

我需要编写一个脚本来打开一个文件然后关闭它然后再次打开它。例如：

#!/usr/bin/perl
open(File,">>test.csv");
print File "1234\n";
close(File);
open(File,">>test.csv");
print File "5678\n";
close(File);

当这段代码在 eclipse 上运行时，它工作正常但是当我尝试从 cmd 运行脚本时；该文件仅第一次打开，并且 csv 文件仅包含 1234。

Answer 1

可能您在某处保持打开文件。要知道这种错误，您必须使用带有“open”的“die”命令，如下所示，

打开（文件，“>>test.csv”）|| 死$！;

如果有任何错误（如第 1 行的权限被拒绝），这将引发您的错误。还建议使用'use strict;' 和“使用警告；” 在程序顶部通知任何错误。