perl - Padre 给出一条关于不存在的行的错误消息

Question

我有这个程序在 Windows 上运行正常，在命令提示符下使用“perl program.pl”或“perl program.pl file1.txt file2.txt”。

use strict;
use warnings;

print "there were ",scalar(@ARGV), " arguments passed to this program\n";
if ( scalar(@ARGV) > 1 )
{
    print "First Argument: $ARGV[0]\n";
    print "Second Argument: $ARGV[1]\n";
}


sub process_file($)
{
        my $filename = shift;
        print "will process file $filename\n";
        #open(INPUT_FILE,"<$filename") || die("could not open $filename");     
}

即使在退出并返回 Padre 后，当我运行它时也会出现此对话框（如果单击“是”按钮，它仍然会运行正常）：

警告 X 第 31 行：使用 | char 在没有 a 的情况下打开 | 在开头或结尾通常是一个错字。你要继续吗？

[是] [否]

Answer 1

我使用or而不是||with open。顺便说一句，我一直被告知open应该使用的三个参数形式。我知道 Perl 并不总是引用有问题的行。当然，我理所当然地认为注释掉的行是有问题的行，而您将其注释为测试？