ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Igor Tseglevsky                      2:5030/266     11 Feb 2001  00:26:19
 To : All
 Subject : DBI & memory
 -------------------------------------------------------------------------------- 
 

 Добрый день!
 
 Hаблюдаю очень странную картину: нижеприведённый скрипт занимается тем,
 что стабильно отъедает память и к конзу работы занимает почти 400Mb.
 В таблице около 4e+6 записей.
 
 Где грабли и как с ними бороться?
 
 Игорь Цеглевский.
 
 #!/usr/bin/perl -w
 
 use strict;
 use integer;
 use DBI;
 use MyConfig;
 
 # подключаюсь к серверу даз банных
 my $dbh = DBI->connect("DBI:Pg:dbname=$config_db",
        $config_user,
        $config_pass,
        {RaiseError => 1,AutoCommit=>0});
 die until defined $dbh;
 
 my $sth = $dbh->prepare("select list_id, issue_id, ip from
 $config_log_ip_table");
 die until defined $sth;
 
 $sth->execute;
 
 while ( $sth->fetchrow_arrayref ) {
 }
 
 $sth->finish;
 $dbh->disconnect;
 
 --- ifmail v.2.12.os.sensi
  * Origin: /kernel: last message repeated 2 times (2:5030/266@fidonet)
 
 

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