-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