есть запрос который в mysql работает нормально то есть дает то щто мне нужно когда делаю его в Perl дает пустую таблицу, вот скрипт в Перл помогите найти ошибку:
........
use DBI;
.......
$query="SELECT a.name,
CASE
when b.name is NULL THEN
'удаленн'
else
CASE
WHEN b.name = a.name THEN 'без изминений'
ELSE 'измененн'
end
END AS name
FROM db1.table AS a
INNER JOIN db2.table AS b ON a.name = b.name
where b.name is null
";
..........
.............
print "<table border=1>";
print "<tr>";
print "<td>name</td>";
print "<td>удаленн</td>";
print "</tr>";
while (@row = $sth->fetchrow_array) {
print "<tr><td>";
print join("</td><td>",@row),"\n";
print "</td></tr>";
}
print "</table>";
print qq{