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

[Sergey Degtyaryov]

Доброго времени суток, 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