nicht angemeldet
Hi Surfer!
Ein Freund von mir und ich haben einen Chat designed, und ihn auch schon probehalber online gesetzt. Er läuft an sich sehr gut, nur ist der Server sehr langsam. Jetzt suchen wir einen wirklich guten virtuellen Server mit Domain, CGI, mind. 50 MB Webspace, der relativ schnell ist und selten ausfällt. Die Daten sollten auf Erfahrungswerten beruhen. Etwa bei www.webdesign-net.de, das echt ein tolles Angebot ist, hat ein
Freund von mir einen Chat gehabt, der permanent serverseitig abgestürzt ist. Wenn das Angebot auch noch höchstens 300 DM pro Jahr kostet, wäre es super.
Zweistens: Für diesen Chat, der schon relativ sicher ist, wollen wir nun auch MySQL in Perl einsetzen. Dazu haben wir folgendes Script:
-------------------------------------
#!/usr/bin/perl
use DBI;
Daten
Server
$host = "localhost";
Benutzer
$user = "root";
Passwort
$password = "DASPW";
Datenbank
$database = "chat";
Datensatz/Tabelle
$table = "normal";
Zur Datenbank verbinden
$dbh = DBI->connect("DBI:mysql:$database:$host", $user, $password, { PrintError => 0}) die "Can't connect: $DBI::errstr";
Neue Tabelle erstellen
BLOB = CaseSensitives Textfeld ; TEXT = In-CaseSensitives Textfeld
#$SQL = "CREATE TABLE $table (alias BLOB, pw BLOB, email BLOB)";
Feld löschen
#$SQL = "DELETE FROM $alias WHERE Alias = 'asd'";
Etwas in Feld packen
#$SQL = "INSERT INTO $alias (alias, pw, email) VALUES ('$alias', '$pw', '$email')";
Etwas aus Tabelle raussuchen
#$SQL = "SELECT * FROM $alias WHERE alias like ''";
... und nun mit Sortierung...
#$SQL = "SELECT * FROM $alias WHERE alias like '%$search_for%' ORDER BY $sort";
... und mit Limit
#$SQL = "SELECT * FROM $alias WHERE alias like '%$search_for%' LIMIT 0,30";
Feld erneuern
#$SQL = "UPDATE $alias SET alias = '$field'";
Tabelle löschen
#$SQL = "DROP TABLE $table";
Datenbank löschen
#$SQL = "DROP DATABASE $database";
if ($SQL ne "") { &doSQL; }
Subroutine
sub doSQL {
print "query: $SQL\n";
$dbh->do("$SQL") die $DBI::errstr;
}
Verbindung zur Datenbank trennen
$dbh->disconnect;
---------------------------------------
Wie kann ich nun die einzelnen Werte einer Zeile (pro Benutzer wollen wir je eine Datenbank erstellen, also für Benutzer1 die Datei Benutzer1, für Benutzer2 die Datei Benutzer2 etc.) je einer
Variable zuweisen? Also dass der Spaltenwert von email auch in der Variable $email steht?
Wenn Rückfragen sind, könnt ihr die auch stellen! ;)
Danke im Voraus, Nico!