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

0

0

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

←	Формирование задержки в n микросекунд.

→

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

AlS ★
(22.05.00 10:08:02 MSD)

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

←	Формирование задержки в n микросекунд.

→

Похожие темы