数据库返回问题
$sth=$dbh-> prepare($sql_string);
$sth-> execute();
my $cats = $sth-> rows;
while(@data = $sth-> fetchrow_array())
{
print "Email:$data[0]\n Telephone:$data[1]\n ";
}
数据库返回数据库中指定字段[按照名称]

[解决办法]
while(@data = $sth-> fetchrow_array())
换成

while($row = $sth-> fetchrow_hashref())
这样$row就是一个字典
$row-> {colname} 这样访问