Форум — Development perl: удаление группы файлов 0 0 Нужно удалить все файлы из определенного каталога (имена файлов не известны). unlink не удаляет по маске. Ссылка
opendir(DIR,"."); @files=sort(grep(/$_/, readdir(DIR))); closedir(DIR); foreach (@files) { unlink ("$_") }; AlS ★ (22.05.00 10:08:02 MSD) Ссылка