ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Pavel Ammosov                        2:5020/52      16 Jun 2001  20:29:29
 To : Artem Chuprina
 Subject : Re: Проблемы с модулями
 -------------------------------------------------------------------------------- 
 

 
 AC>Здравствуй, Denis Konev.
 
 DK>> Имеется у меня одна программа (демон) на эхотаге писаная, которая
 DK>> на этапе запуска (конфигурации) активно юзает целую кучу достаточно
 DK>> тяжелых модулей (типа XML::DOM из пакета libxml-enno). После
 DK>> завершения конфигурирования тихо садится на TCP сокет и тихо делает
 DK>> свое дело, не пользуясь уже этими модулями. Так вот, эти модули
 DK>> жрут много памяти без всякой практической пользы (раза в 2 больше
 DK>> чем без них).
 
 AC>А они при этом в памяти или мирно в свопе валяются? шлибы-то точно в
 AC>свопе, вернее, в родных файлах - mmap(). Перловый код еще может в
 AC>памяти ошиваться, и имеет приличные шансы, но много ли там перлового
 AC>кода? XML::* вроде все с сишным бэкграундом, у них перлового кода по
 AC>идее немного.
 
 ~
 [apavel@oops]$ perlbloat XML::DOM
 XML::DOM added  3.1M
 
 Hе мало :)
 
 perlversion XML::DOM
 XML::DOM: 1.27
 
 да, perlbloat: (списано у Doug MacEachern)
 #!/usr/bin/perl -w
 use strict;
 use GTop ();
 
 my $gtop = GTop->new;
 my $before = $gtop->proc_mem($$)->size;
 
 for (@ARGV) {
     if (eval "require $_") {
         eval {
             $_->import;
         };
     }
     else {
         eval $_;
         die $@ if $@;
     }
 }
 
 my $after = $gtop->proc_mem($$)->size;
 
 printf "@ARGV added %s\n", GTop::size_string($after - $before);
 
 perlversion: 
 #!/usr/bin/perl -w
 use strict;
 
 for (@ARGV) {
     if (eval "require $_") {
         eval {
             $_->import;
       my $v = '$' . $_ . "::VERSION";
       print "$_: " . (eval "$v") . "\n";
         };
     } else {
         die $@ if $@;
     }
   
 }
 
 -- 
 Pavel Ammosov                                               O    \
 apavel@aha.ru                                                 __  )
 http://isabase.philol.msu.ru/~apavel/                             )
 wget -O - isabase.philol.msu.ru/~apavel/key.asc|pgp -fka    O    /
 
 --- FIDOGATE 4.4.0-snp10
  * Origin: Zenon N.S.P. news server (2:5020/52.0)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Re: Проблемы с модулями   Pavel Ammosov   16 Jun 2001 20:29:29   Re: Проблемы с модулями   Artem Chuprina   03 Aug 2001 14:36:30