2012-09-04 2 views
1

명령 프롬프트에서 "perl program.pl"또는 "perl program.pl file1.txt file2.txt"를 사용하여 Windows에서이 프로그램을 실행할 수 있습니다.Padre가 존재하지 않는 행에 대한 오류 메시지를 표시합니다.

X 선 경고 : 나는 (내가 예 버튼을 클릭하면 아직 확인을 실행)을 실행 갈 때

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");  
} 

심지어 종료와 신부님로 돌아 오는 후에, 나는이 대화 상자를 얻을 수 31 : 사용 | a없이 열린 char | 처음에는 이거나 끝은 보통 오타입니다. 계속 하시겠습니까?

[예] [아니오]

+0

당신이 무엇을하고 있는지 알지 못한다면 당신의 하위 이름 뒤에'prototype ('($)'부분)을 사용해서는 안됩니다. 그냥'sub process_file {...}'을 사용하십시오. – TLP

답변

2

I는 or 대신 open|| 사용하지 않는다. 제쳐두고, 나는 항상의 3 가지 논증 형식이 사용되어야한다고 말 해왔다. 나는 Perl이 항상 문제가있는 라인을 참조하지 않는다는 것을 알고있다. 당연히 나는 주석 처리 된 행이 문제의 행이고 당연히 테스트로 주석 처리했다고 생각하고있다.

+0

처음에는 주석 처리하지 않은 상태로 오류가 발생했지만 주석 처리 된 행으로도 오류가 계속 발생합니다. 나는 컴퓨터를 완전히 다시 시작하고 시도 할 것이고 나는 여전히 이것을 얻는 지 볼 것이다. – Scooter

+0

프레스를 잡습니다. 다시 시작하기 전에 나는 | 코멘트가있는 행과 함께 또는 그 위에, 나는 오류를 얻지 못한다. 내가 넣을 때 || 되돌아 오는 대신에 또는 주석 처리 된 행에 - 오류가 다시 발생했습니다. 그리고 커맨드 라인에서 에러를 얻지는 않습니다. 그렇게 보인다고해서 Padre에 오류가 있다는 뜻입니다. 어쨌든, 나는 그 해결책을 고려할 것이다 - "||"대신에 "or"을 사용하라. 감사! – Scooter

관련 문제