perl: удаление группы файлов

Нужно удалить все файлы из определенного каталога (имена файлов не известны). unlink не удаляет по маске.

opendir(DIR,"."); @files=sort(grep(/$_/, readdir(DIR))); closedir(DIR); foreach (@files) { unlink ("$_") };

AlS ★
(22.05.00 10:08:02 MSK)

Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.

Похожие темы