всем привет помогите разобраться
есть такая проблема
#!/usr/bin/perl -w
#use strict;
use DBI;
my $server = 'localhost';
my $db = 'dom';
my $username = '' ;
my $password = '' ;
my $dbh = DBI->connect("dbi:mysql:$db:$server", $username, $password, { RaiseError => 1 });
$query="SELECT * FROM domt ORDER BY id DESC LIMIT 0,1";
$sth=$dbh->prepare($query) or die " Erorr: $dbh->errstr\n";
$sth->execute() or die "Error: $sth->errstr \n";
while (@row = $sth ->fetchrow_array) {
print join("\t",@row) ,"\n";
}
$rc=$sth->finish;
$rc=$dbh->disconnect;
в print join дает ошибку use uninitialized value in join or string
помогите разобраться