\n";
if ($p eq 'limit') { $rowlimit = $value }
}
# Deklaration der noetigen Variablen fuer die Verbindung
# Falls die Datenbank nicht lokal liegt, muss man zusaetzlich
# die Variablen $db_host und/oder $db_port angeben
my $db_host = '62.108.32.182';
my $db_port = 3306;
my ($db_user, $db_name, $db_pass) = ('bbplj_tempdbuser', 'bbpljxqt_tempdb', '2~Ekk05q');
# Verbindung zur DB herstellen
# alternativ ( wenn DB nicht lokal ):
my $dbh = DBI->connect("DBI:mysql:database=$db_name;host=$db_host;port=$db_port",
"$db_user", "$db_pass");
# Man kann auch noch Fein-Tuning betreiben, z.B. mit dem RaiseError- oder dem AutoCommit-Switch.
# Naeheres dazu steht in der Dokumentation des Modules DBI.
#my $dbh = DBI->connect("DBI:mysql:database=$db_name", $db_user, $db_pass);
# Vorbereiten der SQL-Anweisung
# my $query_test = $dbh->prepare('SELECT substr(mytime,12,5), round(least( col01, col02), 1), col01, col02 FROM `temp_table` WHERE 1 order by mytime DESC LIMIT 10');
# my $query_test = $dbh->prepare('SELECT substr(mytime,12,5), round(least( col05, col02, col07), 1), col02, col05, col07 FROM `temp_table` WHERE 1 order by mytime DESC LIMIT 100');
$dbh->do( 'SET @row_number = 0;' );
my $query_test = $dbh->prepare( 'SELECT (@row_number:=@row_number + 1) AS num, substr(mytime,12,5), round(least( ifnull(col05,50), ifnull(col03,50), ifnull(col07,50), ifnull(col19,50)), 1) FROM `temp_table` WHERE 1 HAVING (num-1)%7 = 0 order by mytime DESC LIMIT ' . $rowlimit);
# Ausfuehren der Anweisung
$query_test->execute() or die $query_test->err_str;
# Hier koennte weitergehende Verarbeitung erfolgen, beispielsweise eine Auflistung aller Eintraege:
#
#print "Die letzten Temperaturen\n
";
#while (my ($col_1, $col_2, $col_3) = $query_test->fetchrow_array() ) {
print '
| "; print "$col[1]"; print " | "; print "$col[2] °C |