#perl #file #tk
#perl #файл #tk-toolkit
Вопрос:
Как мне получить Perl Tk FileSelect для выбора только каталогов??
Я пытаюсь это:
sub desDirectory{
$dd = $mw->FileSelect();
$dirPath = $dd->Show;
$dd->configure(-verify=>['-d']);
}
безуспешно.
Ответ №1:
$mw->chooseDirectory() Помогло бы вам?
Комментарии:
1. Да, но как мне добавить имя файла, поскольку я создаю несколько файлов.
sub makeCopies{ while ($count < 5){ print "$fnn"; open (FN, $fn) or warn "Unable to open file:$!"; copy($fn, $dir) or warn "Unable to copy:$!"; open(FN,">($count)$fn"); $count ; }2. @user1020372: Я не понял вашего второго вопроса. Как это связано с Tk? Чего именно вы пытаетесь достичь?
3. Извините, я должен быть более ясен < я создал скрипт, который создает несколько копий одного файла, вот так: выбрал файл для копирования>> выбрал каталог для сохранения>> сделайте несколько копий и поместите их в каталог, выбранный пользователем. Но мне нужно добавить имена файлов, иначе он просто помещает скопированный файл с тем же именем несколько раз, а не несколько копий файла, я правильно понимаю? Я бы опубликовал свой полный код, но форматирование кода для комментариев ужасно
4. @user1020372: Вы спрашиваете, как выполнять манипуляции с именами файлов в Perl?