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

[cornet]

Sergei wrote:
> 
> Решил написать программу на Perl, которая бы просмотрела бы мне весь винт и
> сказала бы, какие из программ не из rpm-пакетов (приведена в аттаче). Вроде
> бы всего ничего, но после целенаведения на /usr она съела всю память (256Мб)
> и весь своп (1Гб), после чего единственный вариант движения - SysRq. Сам уже
> бьюсь где-то час, но не могу понять в чем дело. Может, кто подскажет?

А вот это как понимать?

open (FILES,"ls -1aR $dir |") or die;  

Вы хотите открыть на чтение одновременно несколько тысяч
файлов???
:-))

К тому же , ИМХО Вы это делаете не верно. Использование
вложенного вызова делается не двойными, а одинарными обратными
кавычками, вот такими: "`"

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