LINUX.ORG.RU

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

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

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