какие драйвера (DBD::Pg) используете? версии я имею ввиду.
из последних версий там
1. ноябрьская
2. апрельская
обе с мемори ликами
вот такой код течет мегабайт в секунду где-то:
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use DBI;
my $dbh = DBI->connect('dbi:Pg:dbname=Database;host=localhost',
login => 'XXXX');
$dbh->do('CREATE TEMPORARY TABLE tbl (id SERIAL PRIMARY KEY, val
INTEGER[])');
our $cnt;
sub _flush_data
{
my ($array) = @_;
my $sql = sprintf "INSERT INTO tbl (val) VALUES %s",
join ",", map '(?)', @$array;
$dbh->do($sql, undef, @$array);
printf "saved: %d\n", scalar @$array;
}
while(1) {
my @ary;
push @ary, [ 0 .. int rand 10] for 0 .. int rand 50;
_flush_data(\@ary);
}
Пошел я отписаться в их багтрекере, а там еще кроме моего куча багов и тоже
про мемори лики и причем в других местах.
я тут было по результатам тестов и ощущений хотел было новый проект на
постгрисе замутить вместо mysql, но ситуация с DBD::Pg крайне удручает. если
почти год лежит версия с утечками памяти и фиксов нету, то как ее
использовать? она уже даже в Debian/stable блин попала...
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org