Падре дает сообщение об ошибке о несуществующей линии

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, я получаю это диалоговое окно, когда я запускаю его (оно все равно будет работать OK, если я нажму кнопку Yes):

Предупреждение X Строка 31: Использование | символ в открытом без | в начале или в конце обычно опечатка. Вы хотите продолжить?

[ДА НЕТ]

Answer 1

Я использую or вместо || с open, Кроме того, мне всегда говорили, что форма трех аргументов open это то, что следует использовать. Я знаю, что Perl не всегда ссылается на строку, в которой есть проблема. Конечно, я считаю само собой разумеющимся, что закомментированная строка является рассматриваемой строкой, а вы закомментировали ее как тест?