Код
Код: Выделить всё
use strict;
use warnings;
use feature 'say';
use v5.14;
use DBI;
my $dsn = "DBI:mysql:otrs";
my $username = 'root';
my $password = '12345678';
my %attr = ( PrintError=>0, # отключение отчетов об ошибках с помощью warn()
RaiseError=>1 # report error via die()
);
my $dbh = DBI->connect($dsn,$username,$password,\%attr);
query_links($dbh);
sub query_links{
my ($dbh) = @_;
my $sql = "SELECT *
FROM otrs.x_holidays_rf;";
my $sth = $dbh->prepare($sql);
$sth->execute();
while(my @row = $sth->fetchrow_array()){
printf("%s\t%s\n",$row[0],$row[1]);
}
$sth->finish();
}
$dbh->disconnect();