| Apache/2.4.7 (Ubuntu) Linux sman1baleendah 3.13.0-24-generic #46-Ubuntu SMP Thu Apr 10 19:11:08 UTC 2014 x86_64 uid=33(www-data) gid=33(www-data) groups=33(www-data) safemode : OFF MySQL: ON | Perl: ON | cURL: OFF | WGet: ON > / usr / share / doc / libdbd-mysql-perl / examples / | server ip : 104.21.89.46 your ip : 172.69.130.140 H O M E |
| Filename | /usr/share/doc/libdbd-mysql-perl/examples/prepare_memory_usage.pl |
| Size | 450 |
| Permission | rwxr-xr-x |
| Owner | root : root |
| Create time | 27-Apr-2025 10:10 |
| Last modified | 18-Oct-2013 03:23 |
| Last accessed | 06-Jul-2025 23:36 |
| Actions | edit | rename | delete | download (gzip) |
| View | text | code | image |
#!/usr/bin/perl -w
use strict;
use DBI;
my $ssp = 1;
my $count = 0;
my $query = "SELECT 1 FROM DUAL";
my $dbh = DBI->connect (
"dbi:mysql:database=test:host=localhost;mysql_emulated_prepare=0",
"root", "",
{ RaiseError => 1, PrintError => 0 },
);
my $s_q = $dbh->prepare($query);
while (1) {
$s_q->execute();
my @data = $s_q->fetchrow_array();
$s_q->finish;
$count++;
print "ran $count queries\r";
sleep(0.3);
}
use strict;
use DBI;
my $ssp = 1;
my $count = 0;
my $query = "SELECT 1 FROM DUAL";
my $dbh = DBI->connect (
"dbi:mysql:database=test:host=localhost;mysql_emulated_prepare=0",
"root", "",
{ RaiseError => 1, PrintError => 0 },
);
my $s_q = $dbh->prepare($query);
while (1) {
$s_q->execute();
my @data = $s_q->fetchrow_array();
$s_q->finish;
$count++;
print "ran $count queries\r";
sleep(0.3);
}