Hallo Fux,
ZitatOriginal von Fux
eine MySQL-Tabelle soll mit Perl nach Spalte "RechnerRauf" sortiert werden. Dann soll bei dieser sortierten Tabelle eine Index-Spalte "Index" von Null beginnend durchnummeriert werden. Wie mache ich das am einfachsten?
#!/usr/bin/perl -w
use strict;
use DBI;
my $driver = "mysql";
my $QUERY = "select rechnerauf from test order by (1);";
my ($dbhost, $dbport, $dbuser, $dbpass, $dbname) = ("host", 3306, "user", "pass", "db");
my $dsn = "DBI:$driver:database=$dbname;host=$dbhost;port=$dbport";
my $dbh = DBI->connect($dsn, $dbuser, $dbpass, {'RaiseError' => 1});
my $wert;
my $counter = 0;
my $sth = $dbh->prepare($QUERY);
if ( !$sth ) { die "Error:" . $dbh->errstr . "\n"; }
if ( !$sth->execute ) { die "Error:" . $sth->errstr . "\n"; }
if ( !$sth->bind_columns(\$wert) ) { die "Error:" . $sth->errstr . "\n"; }
while ( $sth->fetch )
{
$counter++;
$dbh->do("update test set Index = $counter where rechnerrauf=$wert;");
}
$sth->finish();
$dbh->disconnect();
exit;Hardy
OT: ist ja mal ein gutes beispiel wie man perl und sql benutzt.
das spart mir für mein nächstest projekt eine menge doku-lesen. danke!
ZitatOriginal von Fux
Hallo,
eine MySQL-Tabelle soll mit Perl nach Spalte "RechnerRauf" sortiert werden.
Relationen sind im Allgemeinen vollkommen unsortiert. Es existiert nur ein Index über ihrem Primärschlüssel, wodurch man den Datensatz findet.
Die Tabellen selber können durch SQL niemals tatsächlich "sortiert" werden, der Benutzer hat keinerlei Eingriffsmöglichkeiten, um den SQL-Server zu zwingen, Daten sortiert abzulegen.
Nur das Ergebnis deiner ANFRAGE kann sortiert werden. Bzw. enstsprechend halt in ein neues Feld der Tabelle einer sortierten Anfrage entsprechend so ein Counter eingetragen werden.
Danke für eure schnelle Hilfe!
Hatte zwischenzeitlich ein Geistesblitz und habs bereits hingekriegt. Meine Lösung will ich euch natürlich nicht vorenthalten:
#raufVektor einlesen
my $sql = qq{select rauf from daten order by rauf};
my $sth = $dbh->prepare( $sql );
$sth->execute();
$idx = 0;
while(@rauf[$idx]=$sth->fetchrow_array)
{
$idx++;
}
print "raufVektor: @rauf\n";
#runterVektor einlesen
my $sql = qq{select runter from daten order by rauf};
my $sth = $dbh->prepare( $sql );
$sth->execute();
$idx = 0;
while(@runter[$idx]=$sth->fetchrow_array)
{
$idx++;
}
Könnte man natürlich in einer Unterfunktion noch bißchen schöner machen, das wars mir dann aber wegen den zweien nicht wert 
Das Ganze dient dazu den Rechner quasi vollautomatisch rauf- und runterzufahren:
Das Skript sollte alle 10 Minuten mit Hilfe von CRON ausgeführt werden
der Rechner fährt nur Runter wenn:
- die Datei RechnerAn nicht gesetzt ist (mit Hilfe dieser Datei
kann erzwungen werden das der Rechner an bleibt, in dieser Datei
steht die Unix-Zeit bis zu der der Rechner anbleiben soll)
- keine anderen Rechner (Clienten) online sind (über Ping)
- die Musik-JukeBox GiantDisc nicht im Wiedergabe-Modus ist
- innerhalb der nächsten 25 Minuten kein Aufwecken ansteht
VDR hab ich noch nicht implementiert, weil ich noch keinen hab 
Vielleicht interessierts ja jemanden. Zur besseren Übersicht hab ich mal das Struktogramm angehängt.
EDIT: Achja, was mir noch vorschwebt: Wenn ich doch mal manuell (d.h. per Taster 
) ausschalte dann werd ich mir verschiedene Init-Stufen einbauen. Bei einmal drücken auf die Aus-Taste macht er nix (könnt ja ein Versehen sein), bei zweimal drücken (Init-Level zwei sozusagen) wird runtergefahren wenn ein Rechner im Netzwerk online sein sollte. Init-Level 3 schaltet dann auch ab, wenn er aufgrund der RechnerAn Datei an sein sollte. Sind quasi unterschiedliche Prioritäten. Wozu das Ganze? Die Kiste soll so wenig wie möglich und doch so oft wie notwendig laufen und selbstständig abschalten.
Grüße
Fux
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!