教士给出有关不存在的行的错误消息

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 programn";
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 $filenamen";
        #open(INPUT_FILE,"<$filename") || die("could not open $filename");     
}

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

警告X第31行：在open中使用|char，开头没有|或者结尾通常是拼写错误。是否要继续？

[是][否]

Answer 1

我使用or而不是||和open。顺便说一句，我一直被告知应该使用open的三元形式。我知道Perl并不总是引用有问题的行。当然，我想当然地认为，被注释掉的行就是有问题的行，而你把它注释掉是为了测试吗？