From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <cornet@zmail.ru>
Message-ID: <3BA4F3CD.12AA6D39@zmail.ru>
From: cornet <cornet@zmail.ru>
X-Mailer: Mozilla 4.78 [ru] (X11; U; Linux 2.2.19-alt4-up i686)
X-Accept-Language: ru, en
MIME-Version: 1.0
To: mandrake-russian@altlinux.ru
Subject: Re: [mdk-re] Re: [mdk-re] 
	=?koi8-r?Q?=F4=C1=CB=C1=D1=20=D0=D2=CF=C7=C1=20=2D=C1=20=CB=C1=CB=20=20=20=CB=D5=D3=C1=C5=D4=D3=D1=21?=
References: <200109161703.f8GH3Ue08524@pif.b5.mephi.ru> <200109161752.f8GHq8e09129@pif.b5.mephi.ru> <788067515.20010916223855@globetravel.spb.ru> <200109161846.f8GIk1e09830@pif.b5.mephi.ru>
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit
Sender: mandrake-russian-admin@altlinux.ru
Errors-To: mandrake-russian-admin@altlinux.ru
X-BeenThere: mandrake-russian@altlinux.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: mandrake-russian@altlinux.ru
List-Help: <mailto:mandrake-russian-request@altlinux.ru?subject=help>
List-Post: <mailto:mandrake-russian@altlinux.ru>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=subscribe>
List-Id: Linux-Mandrake RE / ALT Linux discussion list <mandrake-russian.altlinux.ru>
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://altlinux.ru/pipermail/mandrake-russian/>
Date: Sun Sep 16 22:47:00 2001
X-Original-Date: Sun, 16 Sep 2001 22:47:41 +0400
Archived-At: <http://lore.altlinux.org/community/3BA4F3CD.12AA6D39@zmail.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

Sergei wrote:
> 
> 16 Сентябрь 2001 22:38, Вы написали:
> 
> > Да, тут все верно.
> > К сожалению, но могу проверить работу Вашего скрипта, но скажите, она
> > хоть как-то отрабатывает на каком-нибудь каталоге или уходит в себя?
> 
> Она в текущем каталоге создает файл results.txt, куда и заносит нашедшее.
> Прога работает, но в процессе работы по мере выдачи инфы в results.txt память
> медленно, но верно уходит.
> 
> > Так сходу некорректная конструкция:
> > ----
> > while ($file=<FILES>), однако в таком виде наоборот, Ваш цикл на
> > вызовется ни разу.
> > Вам надо (не меняя Ваши переменные)
> >
> > while (<FILES>) {
> > chomp;
> > $file = $_;
> > дальше по тексту.
> > ----
> 
> Попробую.
> 
> > Что Вы хотите от этой конструкции?
> > if ($file =~ /^\/.*:$/) {...}
> 
> Это отработка информации от ls: при вызове с параметрами -1aR она проходит
> каждый подкаталог, при этом каждый новый каталог начинается с "/", а
> заканчивается на ":". То есть отслеживаю вложения каталогов.

А не прощели использовать find вместо ls ??
Вы получите пути файлов от текущего каталога или корня (смотря
как вызвать) и к тому же вывод не будет забит именами каталогов,
будут только файлы. ИМХО, удобнее дал строку
@files=`find -type f $dir`;
и имеем в @files _все_ файлы под каталогом $dir, по одному файлу
в каждом элементе, причем там заведомо будут _только_ файлы и с
путями!
И ничего регэкспами гонять не надо, каталоги отслеживать :-)

-- 
******** FIRE & STEEL ********