|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Victor Wagner 2:5020/400 15 Apr 2002 11:20:02 To : Ruslan Sulemanov Subject : Re: del -------------------------------------------------------------------------------- Ruslan Sulemanov <Ruslan.Sulemanov@p27.f99.n4635.z2.fidonet.org> wrote: RS> Hello, Alexander! RS> Как-то Alexander V. Artemyev писАл(а) к Ruslan Sulemanov: AA>> From: "Alexander V. Artemyev" <eldorad@superbmarket.com> >>> "Есть около 600 директорий с одинаковым именем хххх (одна в одной), надо AA>> их >>> удалить ?" AA>> Однозначно надо! AA>> rm -R * RS> Спасибки, но эт и я знаю так как фря стоит, yточняю вопрос - yдалить RS> их надо перл скриптом !? system("rm -R *") Или реализовать элементарную рекурсию. sub unlink_dir ($dirname) { if -d "$dirname/$dirname" { chdir $dirname; unlink_dir($dirname); chdir ".."; } rmdir $dirname; } -- http://www.communiware.ru http://www.ice.ru/~vitus --- ifmail v.2.15dev5 * Origin: Leninsky 45 home network (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/151788a52a1e7.html, оценка из 5, голосов 10
|