28 lines
885 B
Perl
28 lines
885 B
Perl
#!/usr/bin/perl
|
|
|
|
my $host = $ENV{'node_000_network'};
|
|
my $port = $ENV{'node_000_port'};
|
|
my $user = $ENV{'node_user'};
|
|
my $password = $ENV{'node_password'};
|
|
my $test_dir = $ENV{'test_dir'};
|
|
|
|
use strict;
|
|
use DBI;
|
|
|
|
my $dsn = "DBI:mysql:database=test;host=$host;port=$port;mysql_use_result=0;mysql_server_prepare=1;mysql_ssl_client_key=$test_dir/ssl-cert/client-key.pem;mysql_ssl_client_cert=$test_dir/ssl-cert/client-cert.pem;";
|
|
my $dbh = DBI->connect($dsn, $user, $password) or die "Failed to connect!";
|
|
my $sth = $dbh->prepare("SELECT id, \@\@server_id from test.t1 where id=(?)");
|
|
|
|
$sth->bind_param(1, "%"); # placeholders are numbered from 1
|
|
|
|
for (my $i=0; $i<1000; $i++) {
|
|
if (defined($sth)) {
|
|
$sth->execute($i) or warn "Did not execute successfully: ".$dbh->errstr;
|
|
}
|
|
}
|
|
|
|
$sth->finish();
|
|
$dbh->disconnect() or warn "Did not successfully disconnect from backend!";
|
|
|
|
|