나는 TCL에 좀 새로운 해요하지만이처럼 보이는 시저를 작성해야 :
proc TestVerb { Data Data_txt } {
VERBATIM [format "// Data: $Data - $Data_txt"]
if { $argc == 2} {
VERBATIM {// SUCCESS //}
else {
exit 1
}
나는 호출이 같은 PROC : TestVerb Switch"This is used for..."
발동 효과 다른 파일에 있고 proc 호출이 다른 파일에 있습니다. 내가 $argc
를 사용하지 않는 경우 내가 원하는 출력을 얻을 때문에 그들은 제대로 공급 보이지만 나도 $argv
또는 $argc
를 사용하면 나는 다음과 같은 컴파일 오류 : 읽을 수 없습니다 $argv/$argc
이러한 변수
없는 나는이 변수를 참조하는 경우 $::argc
및 $::argv
결과가 올바르지 않습니다. 은 비어 있고 $ argc는 0입니다.
안녕하세요, 빠른 답변 감사드립니다. 요점은 proc이 다른 사람들에 의해 사용될 것이고, 나는 그것들에 부여한 인자의 수를 체크 할 필요가있다. 이미 사용하려고 시도했습니다. global argv argc 그러나 여전히 잘못된 출력이 표시됩니다. argv argc 0 –
Flaxter