Quote

$dbh = DBI->connect( "$dbms:$dbname","$dbuser","$dbpasswd", {PrintError => 0, RaiseError => 1}) || die
"Verbindung zur Datenbank fehlgeschlagen: $DBI::errstr";

my $sql = qq{SELECT * FROM ${table_prefix}topic WHERE time between $time and $etime ORDER BY time};
my $sth = $dbh->prepare( $sql );
$sth->execute();

my @test = ();

while($ref = $sth->fetchrow_hashref()) {

my ($tsec,$tmin,$thour,$tmday,$tmon,$tyear,$twday,$tyday,$tisdst) = localtime($ref->{'time'});
$tyear = $tyear + 1900;
$tmon = $tmon + 1;

$anzahl = @test;

$test[$anzahl + 1] = "$tmday ";
};
$sth->finish();
$dbh->disconnect();