mysql tcp 4层负载

-bash-4.1# cat /etc/haproxy/haproxy.cfg
global
        log 127.0.0.1   local3
        maxconn 65535
        chroot /usr/local/haproxy
        uid 500
        gid 500
        daemon
	tune.ssl.default-dh-param 2048

defaults
        log     global
        maxconn 65535
        timeout connect 5000
        timeout client  50000
        timeout server 50000

        timeout check   5s
listen mysql *:3306
	mode tcp
	balance roundrobin
	server mysql1 192.168.32.161:3306 weight 1 check port 3306 maxconn 200
	server mysql2 192.168.32.64:3306 weight 1 check port 3306 maxconn 200
-bash-4.1# cat /etc/haproxy/haproxy.cfg
global
        log 127.0.0.1   local3
        maxconn 65535
        chroot /usr/local/haproxy
        uid 500
        gid 500
        daemon
	tune.ssl.default-dh-param 2048

defaults
        log     global
        maxconn 65535
        timeout connect 5000
        timeout client  50000
        timeout server 50000

        timeout check   5s
listen mysql *:3306
	mode tcp
	balance roundrobin
	server mysql1 192.168.32.161:3306 weight 1 check port 3306 maxconn 200
	server mysql2 192.168.32.64:3306 weight 1 check port 3306 maxconn 200

	[root@dr-mysql01 sbin]# cat test.pl
use DBI;
my $dbUser='DEVOPS';
my $user="root";
my $passwd="1234567";
my @arr2="";
my $dbh  = DBI->connect("dbi:mysql:database=DEVOPS;host=192.168.32.152;port=3306",$user,$passwd) or die "can't connect to database ". DBI-errstr;
my $hostSql = qq{select  username,password,authority from  user };
my ($a1, $a2, $a3,$a4,$a5,$a6,$a7,$a8,$a9);
my $selStmt = $dbh->prepare($hostSql);
$selStmt->execute();
$selStmt->bind_columns(undef, \$a1, \$a2, \$a3);
$selStmt->execute();
while( $selStmt->fetch() ){ push (@arr2, "$a1  $a2  $a3\n" );
};
print "\@arr2 is @arr2\n"
[root@dr-mysql01 sbin]# perl test.pl
@arr2 is  liu  1234567  1

[root@dr-mysql01 sbin]# perl test.pl
@arr2 is  aa  1  1