ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : John Lepikhin                        2:5070/156     03 Aug 2002  12:56:54
 To : Stas
 Subject : Re: проблемка с File::Find::find
 -------------------------------------------------------------------------------- 
 

 Приветствую, Стас.
 
 !> On 01 Aug 02 16:13:57 +0900, Стас -> All:
 
  S> Подскажите, плиз... Разбираюсь с File::Find::find и хочу найти
  S> все файлы, но только в текущей директории, а по дереву дальше не
  S> идти...
 
         File::Find предназначен как раз для рекурсивного поиска.
 В твоем случае существует два гораздо более тривиальных решения:
 
 while (<./*.txt>) {
    # делать что-то с $_, в которой хранится имя текущего найденного файла
 }
 
 opendir DIR, './';
 foreach (readdir DIR) {
    # аналогично
 }
 closedir DIR;
 
         По некоторым причинам лучше использовать второй вариант.
 -- 
 ... [лесные компьютерщики] {бородатый Меф}
 --- Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.1 (Cuyahoga Valley)
  * Origin: A poorly-installed InterNetNews site (2:5070/156.0)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор