DBI取值问题

Netwrom

我使用程序想取

1. mysql> show global status;  
   
2. +------------------------------------------+--------------+
   
3. | Variable_name                            | Value        |
   
4. +------------------------------------------+--------------+
   
5. | Aborted_clients                          | 19           |
   
6. | Aborted_connects                         | 3            |
   
7. | Binlog_cache_disk_use                    | 0            |
   
8. | Binlog_cache_use                         | 4            |
   
9. | Binlog_stmt_cache_disk_use               | 29           |
   
10. | Binlog_stmt_cache_use                    | 614410       |
    
11. | Bytes_received                           | 6737567730   |
    

复制代码

我的目标是：Aborted_clients 与Aborted_connects 的值
之后我让它们相加，输出
程序如下
#!/usr/bin/perl
#use strict;
#use warnings;
use DBI;

my $dsn="DBI:mysql:mysql:localhost";
my $username="root";
my $password="11111";
my %conn_attrs=(RaiseError=> 1, PrintError => 1, AutoCommit =>1);


my $dbh=DBI->connect($dsn,$username,$password,\%conn_attrs);
#my $sth=$dbh->prepare("select user,host,password from user;");
my $sth=$dbh->prepare("show global status");
$sth->execute();
while(my @arr=$sth->fetchrow_array()){
           print "Variable_name:$arr[0]\n";
           print "Value:$arr[1]\n";
           #print "user2:$arr->{password}\n\n";
}

$sth->finish();
$dbh->disconnect();

py

数据库敏感操作，注意权限。

1. GRANT SUPER, PROCESS ON *.* TO 'root'@'localhost' IDENTIFIED BY "11111";

复制代码

Netwrom

感谢你的回复，我的数据库不能连接外网的，所以不用担心这个问题
回复 2# py


   

py

Netwrom 发表于 2012-11-20 12:04
感谢你的回复，我的数据库不能连接外网的，所以不用担心这个问题

。。。。。。我是在说你的问题。
你的代码是可以取得你想要的值的，如果无法读出这些值，就是数据库权限问题。