שלום,
יש לי את הסקריפט הבא בפרל:
קוד: |
/usr/bin/perl
use strict;
use warnings;
use DBI;
sub dbclose {
my ($dbh) = shift;
$dbh->disconnect or die "Can't disconnect: $!";
}
sub dbconn {
my ($dbname) = @_;
my $host = "rns";
my $user = "root" ;
my $pw = "passwd";
my $dsn = "DBI:mysql:host=$host;database=$dbname";
my $dbh = DBI->connect($dsn, $user, $pw)
or die "Can't connect to $dbname: $!";
return $dbh;
}
my $database_name = 'list'; # the name of your database
my $dbh = dbconn($database_name);
# do your work with $dbh ...
dbclose($dbh); |
כשאני מריץ אותו באובונטו 12.04.5, גירסת פרל v5.14.2 הכול עובד בסדר.
אבל כשאני מריץ את אותו סקריפט על אובונטו 16.04.1 גירסת פרל v5.22.1, אני מקבל את הפלט הבא:
קוד: |
DBI connect('list;rns','root',...) failed: Malformed packet at test1.pl |
יש למישהו רעיון מה יכולה להיות הבעיה?