PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Perl & mysql



acid2k
29.03.2004, 09:14
hi leutz ich hab den quellcode, bekomm keine gescheide ausgabe hin
kenn mich mit perl nicht so gut aus kann mir jemand helfen ?

#!/usr/bin/perl -w
use DBI;
$dbuser="fiedler";
$dbpass="53greta6";
$dbname="zafer";
$dbhost="localhost";
$dbh = DBI->connect("DBI:mysql:host=$dbhost:database=$dbname", $dbuser, $dbpass);
$sql = "select * from test";
$sth = $dbh->prepare($sql);
$sth->execute();
while (@row = $sth->fetchrow_array)
{
print qw($row[0]\t$row[1]\t$row[2]\n);
}
$rc = $dbh->disconnect;