https://www.opennet.me/openforum/vsluhforumID9/8448.html [code]#!/usr/bin/perl<br>use DBI;<br>use List::Util 'sum';<br>my $query;<br>my $output;<br>my $db = DBI-&gt;connect("DBI:mysql:test","root","mypassword");<br>while(1){<br> for($n=0;$n&lt;1000;$n++){<br> $query="SELECT UNIX_TIMESTAMP()";<br> $output = $db-&gt;prepare($query);<br> undef($output);<br> }<br> $mem = sum(map {(split)[4]} grep {/\btest3\b/} `top -b -n1`) &#124;&#124; 0;<br> print "$mem Mb\n";<br> sleep(1);<br>}<br><br>[/code]<br>вот что показывает<br>[quote]10488 Mb<br>10488 Mb<br>10488 Mb<br>10616 Mb<br>10616 Mb<br>10736 Mb<br>10736 Mb<br>10868 Mb<br>10868 Mb<br>11000 Mb<br>11000 Mb<br>11132 Mb<br>[/quote]<br><br>Без модуля List::Util пробывал, тоже самое (проверял через top)<br><br>т.е. судя по этому примеру идет постоянная утечка в памяти. Что не так делаю ? <br><br>[quote]$ perl -MDBI -e 'DBI-&gt;installed_versions'<br> Perl : 5.010000 (i386-linux-thread-multi)<br> OS : linux (2.6.22.18-server-1mdv)<br> DBI : 1.607<br> DBD::mysql : 4.008<br> DBD::Sponge : 12.010002<br> DBD::Gofer : 0.011565 https://www.opennet.me/openforum/vsluhforumID9/8448.html#2 Mon, 28 Sep 2009 09:20:16 GMT Известный баг, perl #56908.<br><br>Жди 5.10.1, в него обещают включить патч. Пока или откатись на &lt; 5.9.2 или пересобери Perl.<br><br>