Perl Escape Quotes 문제

Question

사소한 일이라면 용서해주십시오.

나는이 같은 펄 스크립트 시스템()를 호출하여 XSLT를하고있는 중이 야 :

system("java -Xms256m -Xmx512m -jar $saxonJar -o $tmpFile $inFile $xslFile $saxonParams"); 

$ INFILE는 XSLT를 사용하여 번역 할 것입니다 xml 파일에 대한 상대 경로를 포함하는 문자열입니다. 이 문자열은 "Intro to Dance.htm"과 같이 문자열에 공백이있는 $ inFile을 제외하고는 제대로 작동합니다. 그런 다음 구문 오류가보고됩니다.

MS-DOS에 있으면 XSLT 명령에서 $ inFile 문자열 주위에 따옴표를 붙여이 문제를 해결할 수 있습니다. 위의 명령에 다음과 같이 탈출을 시도했습니다.

system("java -Xms256m -Xmx512m -jar $saxonJar -o $tmpFile \"$inFile\" $xslFile $saxonParams"); 

작동하지 않습니다. 아무도 어떻게 $ inFile 주위에 따옴표를 넣어야합니까?

감사합니다.

Answer 1

목록으로 명령 줄을 system으로 전달하여 셸 (따라서 셸 이스케이프 문제)을 피할 수 있습니다.

system('java', '-Xms256m', '-Xmx512m', '-jar', $saxonJar, '-o', $tmpFile, $inFile, $xslFile, $saxonParams); 

이 작동하는 방법에 대한 자세한 내용은 system의 perldoc을 참조하십시오.

Answer 2

사실 MS-DOS입니까?

당신은 실제로 작동하지 않았지만 실제로는 일어나지 않았다고했습니다. 오류가 있었습니까? 그게 뭐야? 이것은 Unixish 시스템에있는 경우

, 단지 작은 따옴표를 대체 :

system("java -Xms256m -Xmx512m -jar $saxonJar -o $tmpFile '$inFile' $xslFile $saxonParams"); 

즉 MS-DOS 여부에 작동하는지 모르겠어요.

그 쉘 수준에서 유지 될 필요가 있기 때문에 파일 이름이, " 또는 '가 좀 더 복잡 해짐에 포함되어있는 경우 : (. 또는 비슷한)

$inFile =~ s/(['"])/\\$1/g; 
system("java -Xms256m -Xmx512m -jar $saxonJar -o $tmpFile \"$inFile\" $xslFile $saxonParams"); 

여전히

더 나은, 다중 인수 양식을 사용

system('java', '-Xms256m', '-Xmx512m', '-jar', $saxonJar, '-o', $tmpFile, 
     $inFile, $xslFile, $saxonParams); 

을 인터프리터 쉘 그림 그것을 알아 보자.