0
Perl Tk FileSelect에서 디렉토리 만 선택하려면 어떻게해야합니까 ??Perl Tk File 받기 디렉토리를 선택하려면
나는이 노력하고있어 : 성공하지
sub desDirectory{
$dd = $mw->FileSelect();
$dirPath = $dd->Show;
$dd->configure(-verify=>['-d']);
}
.
A
답변
0
$mw->chooseDirectory() 도움이 될까요?
예, 그렇지만 파일을 여러 개 만들었 기 때문에 파일 이름을 추가 할 수 있습니다 .'sub makeCopies {while ($ count <5) {print "$ fn \ n"; open (FN, $ fn) 또는 "Unable to open file : $!";을 경고합니다. copy ($ fn, $ dir) 또는 "Unable to copy : $!"라고 경고합니다. open (FN, "> ($ count) $ fn"); $ count ++; }' – user1020372
@ user1020372 : 두 번째 질문을하지 않습니다. Tk와 어떤 관련이 있습니까? 정확히 당신이 성취하고자하는 것은 무엇입니까? – choroba
죄송합니다. 좀 더 명확히해야합니다. 나는 다음과 같이 하나의 파일을 여러 번 만드는 스크립트를 만들었습니다 : 복사 할 파일을 선택하십시오. >> 저장할 디렉토리를 선택하십시오. >> 여러 복사본을 만들어 사용자 디렉토리에 저장하십시오. chose.But하지만 파일 이름을 추가해야합니다. 그렇지 않으면 복사 된 파일을 여러 번 복사하지 않고 같은 이름으로 여러 번 복사합니다. 이해가됩니까? 내 전체 코드를 게시 하겠지만 주석을 작성하는 코드는 끔찍합니다. – user1020372