Anton_Y Full Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Код:   my $dir='/usr/';  #откуда пойдем плясать my $idx_ext='.mp3'; #что ищем &recur($dir)   sub recur                   {  my $dir = shift;  opendir DIR, $dir or return;  my @contents = map "$dir/$_", sort grep !/^\.\.?$/, readdir DIR;  closedir DIR;  foreach (@contents)   {    if (!-l && -d)     {      recur($_);     }    else     {      if ($_ =~ /$idx_ext$/i)       {          #        # а вот тут делаем с файлом из папки что надо...        #           }      else { next; }     }   } }   Всего записей: 581 | Зарегистр. 04-09-2002 | Отправлено: 07:12 14-07-2004 | Исправлено: Cheery, 23:38 01-03-2008

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Интернет » Web-программирование » Perl: Полезные решения

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование