Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

SHOW PROCESSLIST in Perl?

Dec 7, 2001, 7:38 AM
TB2
Novice (48 posts)
Dec 7, 2001, 7:38 AM
Post #1 of 2
Views: 2095
Shortcut
Quote Reply
SHOW PROCESSLIST in Perl?
Hi,
any idea why the following code-snippet doesn't work:

Code:
$dbh = $dbh->prepare("SHOW PROCESSLIST");
$dbh->execute;

my $table = $dbh->fetchall_arrayref;
my ($i, $j);
for $i (0 .. $#{$table}) {
for $j (0 .. $#{$table->[$i]}){
print "$table->[$i][$j]\t";
}
print "<br>";
}

Thanks for help!
Dec 7, 2001, 7:58 AM
Paul
Veteran (19537 posts)
Dec 7, 2001, 7:58 AM
Post #2 of 2
Views: 1947
Shortcut
Quote Reply
Re: [TB2] SHOW PROCESSLIST in Perl? In reply to
Code:
$dbh = $dbh->prepare("SHOW PROCESSLIST"); $dbh->execute; my $table = $dbh->fetchall_arrayref;

$sth = $dbh->prepare("SHOW PROCESSLIST");
$sth->execute;
my $table = $sth->fetchall_arrayref;