xml

XML::Simple
ok

my $outstring="";
$outstring.="

";

while(($row = $sth->fetchrow_arrayref)){
$outstring.="
• [3].01.THUMBZZZ.jpg\" alt=\"館藏封面圖片\">[0]\">Title：$row->[1]\nAuthor：$row->[2]
";
# $outstring.="\n\n$row->[0] results";
}
$outstring.="

";
print $outstring;

amazon online reader
while(($row = $sth->fetchrow_arrayref)){
$outstring.="

[3]/ref=sib_dp_pt/002-7879865-0184864#reader-link\">[3].01.THUMBZZZ.jpg\" alt=\"館藏封面圖片\">[0]\">Title：$row->[1]" . "
Author:" . $row->[2] . "

"; # $outstring.="\n\n$row->[0] results";
}

$outstring.="";
print $outstring;