LINUX.ORG.RU
Форум — Development  

Perl script size of files


0

0

Izvinite, chto latinskimi. Mozhet u kogo est' skriptik Perl(ili shell), kotoriy chitaet files v dereve katalogov, kolichestvo files neizvestno,kolichestvo dir v dereve tozhe mozhet menjatsja, i vydaet nazvanija tex filov, razmer kotoryx bol'she ili men'she opredelennogo? Spasibo Marina

anonymous
← Где логика?(Shell)
Помогите kernel и glibc нужно ли пересобирать →
Ответ на: комментарий от idle

spasibo, no delo v tom, chto v protsesse raboty programmy sozdaetsja derevo katalogov, kotorye soderzhat bol'shoe kolichestvo files. Skript nuzhen dlja togo, chtoby vydeljat' poimenno files, kotorye men'she opredelennogo razmera i posylat' etu informatsiju v log-file. Esli v protsesse raboty programmy generjatsja files men'she X, ob etom dolzhno byt' izvestno. Ja znaju kak eto sdelat' v perle dlja odnogo file :) no dlja bol'shogo kolichetsva v dir/subdir/subdir, chestno govorja ne znaju. Marina

anonymous
()
Ответ на: комментарий от anonymous 

> spasibo, no delo v tom, chto v protsesse raboty programmy sozdaetsja
> derevo katalogov, 

не понимаю, в чем проблемма. find найдет все, что нужно.
как вам уже сказали, можете использовать File::Find.

или просто:

sub files_less_then_in
{
    my ($size, @where) = @_;
    qx(find @where -size -${size}c);
}

@files = files_less_then_in 10000, qw(/bin /sbin);

idle ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← Где логика?(Shell)
Development
Помогите kernel и glibc нужно ли пересобирать →