[mdk-re] Re: [mdk-re] Re: [mdk-re] Такая прога -а как кусается!

From: Sergey Degtyaryov <maga@globetravel.spb.ru>
To: Sergei <mandrake-russian@altlinux.ru>
Subject: [mdk-re] Re: [mdk-re] Re: [mdk-re] Такая прога -а как  кусается!
Date: Sun Sep 16 22:55:00 2001
Message-ID: <1829695591.20010916230603@globetravel.spb.ru> (raw)
In-Reply-To: <200109161854.f8GIsKe09958@pif.b5.mephi.ru>

Доброго времени суток, Sergei,

Sunday, September 16, 2001, 10:54:20 PM, Вы сказали буквально следующее

S> 16 Сентябрь 2001 22:38, Вы написали:
S>  ----
>> while ($file=<FILES>), однако в таком виде наоборот, Ваш цикл на
>> вызовется ни разу.
>> Вам надо (не меняя Ваши переменные)
>>
>> while (<FILES>) {...
S> Проделал - без изменений.

 Вообще, вместо изобретения скрипта обхода дерева каталогов рекомендую
 использовать File::Find.
 Там все очень несложно и Вы получите полные имена всех файлов в Вашей
 директории, включая поддиректории, как Вам, кажется, и надо.

use File::Find;

find(\&wanted, '.');

sub wanted {
if ($RPMData->find_by_file($File::Find::name)) {
# условие измените в зависимости от вывода RPMData, тут рассчитано на
0, если не нашли.

print "Found in RPM base\n";
print "Size is ", (stat($File::Find::name))[7], "\n";
}

Примерно так будет выглядеть Ваш скрипт.

-- 
Rgds, maga, maga@mail.ru

From serpiph@pochtamt.ru  Sun Sep 16 23:01:30 2001
Return-Path: <serpiph@pochtamt.ru>
Delivered-To: mandrake-russian@localhost.ru.net
Received: from pif.b5.mephi.ru (maze.mephi.ru [194.67.66.77])
	by linux.ru.net (Postfix) with ESMTP id D6BD215F5
	for <mandrake-russian@altlinux.ru>; Sun, 16 Sep 2001 23:01:29 +0400 (MSD)
Received: from there (IDENT:pif@localhost [127.0.0.1])
	by pif.b5.mephi.ru (8.11.6/8.8.7) with SMTP id f8GJCPe17983
	for <mandrake-russian@altlinux.ru>; Sun, 16 Sep 2001 23:12:25 +0400
Message-Id: <200109161912.f8GJCPe17983@pif.b5.mephi.ru>
Content-Type: text/plain;
  charset="koi8-r"
From: Sergei <serpiph@pochtamt.ru>
To: mandrake-russian@altlinux.ru
Subject: Re: [mdk-re] Re: [mdk-re] =?koi8-r?b?CfTBy8HRINDSz8fBIC3BIMvByyAgIA==?= =?koi8-r?b?IMvV08HF1NPRIQ==?=
X-Mailer: KMail [version 1.3.1]
References: <200109161703.f8GH3Ue08524@pif.b5.mephi.ru> <200109161853.f8GIrje09939@pif.b5.mephi.ru> <3BA4F4E5.6CC0E42F@zmail.ru>
In-Reply-To: <3BA4F4E5.6CC0E42F@zmail.ru>
MIME-Version: 1.0
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 23:02:11 2001
X-Original-Date: Sun, 16 Sep 2001 23:12:24 +0400

16 Сентябрь 2001 22:52, Вы написали:
> Sergei wrote:
> > 16 Сентябрь 2001 22:34, Вы написали:
> > > А не проще ли
> > > @Array=`programm`;
> > > и получаем массив строк вывода от programm. ИМХО это надежнее и
> > > удобнее, чем мудрить с дескрипторами.
> >
> > А ежели не хватит места в памяти?  :))) Как раз и хочу уменьшить ее
> > занятость.
>
> Ну уж на список файлов места точно хватит, это будет всего
> несколько мегабайт к тому же в сегменте данных, то есть свопится
> без проблемм :-)

Сейчас посмотрим.

> Ага, значит преиздание. Это она самая, только цвет другой.
> Книжка хорошая, но вот теории там почти нету :-(( а одними
> примерами сыт не будешь. Она к сожалению не дает _базу_ знаний,
> понятия общих принципов.
Я больше штудирую man по perl, а там если что конкретно по действиям. 
Особенно сейчас.

-- 
С уважением, Епифанов Сергей.