![[LinuxFocus-icon]](../../common/images/logolftop_319x45.gif){kind=small} |
|
|
von Georges Tarbouriech <georges.t/at/linuxfocus.org> Über den Autor: Georges benutzt Unix schon seit langem. Er mag jene Produkte, die zur Verbreitung von Lösungen mit freier Software im professionellen Bereich geführt haben. Übersetzt ins Deutsche von: Hubert Kaißer et al <hubert.kaisser/at/botb.de> |
MySQL und Perl: eine Zweckehe
Zusammenfassung:
MySQL und Perl gibt es nun schon recht lange. Sie sind immer noch weit
verbreitet, auch wenn sich die "Mode" ändert. In diesem Artikel geht es um
diese zwei Produkte, die als Ganzes zusammen arbeiten, entweder im Internet
oder in Ihrem lokalen Netzwerk. Das gegebene Beispiel betrifft Unixsysteme,
freie und kommerzielle, auch wenn es auf andere weit verbreitete
"Betriebssysteme" angewendet werden kann. |
MySQL ist ein Relational DataBase Management System (relationales
Datenbankmanagementsystem)(RDBMS),
erhältlich bei http://www.mysql.com.
Es ist unter der GNU GPL veröffentlicht, frei, je nachdem, wofür es benutzt
wird. Überprüfen Sie die Lizenzpolitik auf der MySQL-Webseite. Es
funktioniert auf vielen Plattformen entweder als Server oder als Client.
Es gibt noch ein paar andere RDBMS als freie Software, aber wir werden
hier keine Vergleiche anstellen, da die Wahl von MySQL für diesen
Artikel willkürlich ist. Auch werden wir es nicht mit den großen
"kommerziellen" Programmen wie Informix, Oracle, Sybase, usw.
vergleichen. Es reicht zu sagen, daß MySQL vermutlich eines der am
weitesten verbreitesten DBMS im Internet ist. Für diesen Artikel verwenden
wir die Version 3.23.36 (wiederum willkürlich). Zum Zeitpunkt des
Verfassens dieses Textes ist die aktuelle stabile Version 3.23.46
und die Alphaversion ist die lang erwartete Version 4.0. Diese können als
Quelltext zum Kompilieren oder als Pakete heruntergeladen werden.
Um MySQL in Verbindung mit Perl zu benutzen, braucht man etwas mehr:
die DBI-Module von Perl. Man kann zumindest DBI, Msql-Mysql-modules,
Data-Dumper and Data-ShowTable runterladen.
Wir werden nicht über ihre Installation sprechen, da sie einleuchtend
ist und die Pakete alle Informationen beinhalten, die Sie brauchen.
Perl bedeutet Practical Extraction and Report Language.
Am Anfang war es für Dokumentmanipulation gedacht (Syntaxanalyse,
Extrahierung...), aber bald wurde es viel mehr als das.
Man kann mit Perl fast alles machen, von administrativen Aufgaben bis hin
zu CGI-Scripts durch richtige Applikationen und, natürlich,
Datenbankschnittstellen.
Perl ist bei vielen freien und kommerziellen Unix-Distributionen
dabei, wenn nicht sogar bei allen. Zum Zeitpunkt der Erstellung dieses
Artikels ist die aktuelle stabile Version 5.6.1 und die Betaversion
5.7.2. In diesem Artikel werden wir die gute, alte 5.005_03 verwenden.
Sollten Sie kein Perl auf Ihrer Maschine haben (wie ist das nur möglich?),
können Sie es von http://www.perl.com/
herunterladen. Perl versorgt Sie tonnenweise mit Modulen für fast alles.
Sie können sie sich aus dem CPAN der Webseite runterladen: eine Goldmine!
Nicht zuletzt, welch Überraschung, um mit beiden Werkzeugen zu arbeiten:
Man braucht einen Webserver! Apache scheint die richtige Wahl zu sein, da
er, wie gewöhnlich, Teil vieler freier und kommerzieller
Unix-Distributionen ist. Sollten Sie ihn nicht haben (wo haben sie nur Ihre
Distribution her?), ist er auf
http://www.apache.org/ erhältlich.
Sie haben wahrscheinlich schon gemerkt, daß LinuxFocus ein
mehrsprachiges Magazin ist. Das bedeutet, wenn Sie ein Redakteur sind,
müssen Sie den Status eines neuen Artikels und somit die Übersetzung
überwachen. Anders gesagt: wer tut was, wann... Zur Zeit gibt
es ungefähr 200 Artikel, oft in durchschnittlich 5 Sprachen
verfügbar. Das ergibt ungefähr 1000 Artikel (na, wie schlau
bin ich?) und es werden immer mehr. Diese Masse muß
archiviert, formatiert und zusammengefaßt werden... Wie
glauben Sie, wird das bewerkstelligt? Natürlich mit Perl.
Unser Chefredakteur, Guido Socher, hat schon viele Perl-Programme
geschrieben, um unser Leben erheblich leichter zu machen. Er schrieb
ebenfalls ein dreiteiliges Perl-Tutorial und eine
Perl-Buchkritik. Schauen Sie sich doch mal den Abschnitt mit
den Verweisen am Ende dieses Artikels an!
Javi, unser spanischer Redakteur, schrieb ein Program, um den
Status der Übersetzung zu verwalten... in Perl.
Atif, einer unserer Star-Autoren, kommt aus dem Königreich
Perl, deshalb ist seine Muttersprache Perl. Letztendlich hat er
auch zu MySQL beigetragen, indem er ein Web-Administrations-Tool
verbessert hat. Wieder finden Sie etwas dazu im Abschnitt mit
den Verweisen.
All dies zeigt deutlich, daß, wenn Sie nach einem
Perl-Paradies suchen, Sie lediglich bei LinuxFocus mitmachen
müssen.
Da ich einer der französischen LinuxFocus-Redakteure bin, und ich
ziemlich faul bin, habe ich mir meine eigene Datenbank
angelegt, die, raten Sie mal, auf MySQL und Perl basiert.
Dies setzt voraus, daß MySQL korrekt installiert wurde, Benutzer angelegt
und sie mit Passwörtern geschützt wurden. Die Installation ist außerhalb des
Rahmens dieses Artikels und die großartige Dokumentation, die bei MySQL
zur Verfügung steht, stellt alle Informationen zur Verfügung.
Starten Sie den MySQL-Server, indem Sie das Skript mysql.server
verwenden, da es den Daemon safe_mysqld aufruft und Sie diesem Daemon
Optionen übergeben können.
Starten Sie eine Verbindung, indem Sie
mysql -h host -u user -p
eingeben. Wenn der Server auf Ihrer lokalen Maschine läuft, dann
brauchen Sie -h host nicht.
Nachdem Sie das Paßwort eingegeben haben, sind Sie mit dem Server
verbunden (nun, das sollten Sie sein!). Und jetzt können Sie Ihre
Datenbank anlegen.
Am Prompt von mysql geben Sie nun
CREATE DATABASE lf;
ein. Dies ist unser Beispiel (lf steht für LinuxFocus) und es ist
naheliegend, daß Sie Ihrer Datenbank den Namen geben, den Sie wollen.
Als nächstes erteilen Sie den zugelassenen Benutzern einige Rechte,
unter der Annahme, daß Sie das Recht haben, es zu tun (das soll heißen,
daß Sie als User mit administrativen Rechten eingelogt sind). Wenn
Sie wollen, daß ein Benutzer in der Lage ist, die Datenbank zu verwalten,
dann können Sie ihm die Privilegien geben, indem Sie
GRANT ALL ON lf.* TO username;
eingeben. Wählen Sie die Datenbank, die Sie gerade erzeugt haben, indem
Sie USE lf eingeben. Erzeugen Sie eine Tabelle, gemäß Ihrem
Bedarf. In unserem Beispiel legen wir eine Tabelle mit dem Namen trissue
an:
CREATE TABLE trissue
(num INTEGER UNSIGNED, category VARCHAR(25), title VARCHAR(40), author
VARCHAR(20), en VARCHAR(20), es VARCHAR(20), fr VARCHAR(20),de VARCHAR(20),
nl VARCHAR(20), ru VARCHAR(20), tk VARCHAR(20), issue
VARCHAR(20));.
Lassen Sie uns prüfen, ob es wie erwartet erzeugt wurde:
USE lf
SHOW TABLES;
DESCRIBE trissue;
Das ist alles.
Und nun brauchen wir einige Daten. Um Daten in eine leere Tabelle zu
laden, ist es das einfachste, eine Textdatei mit TAB-Trennern zu
verwenden. Wenn Ihr Text fertig ist, schreiben Sie einfach:
LOAD DATA LOCAL INFILE "maindb.txt" INTO TABLE trissue;
Wenn Ihre Textdatei korrekt ist, dann ist die Tabelle nun gefüllt.
Das können Sie mit dem Folgenden überprüfen:
SELECT * FROM trissue;
Dies sollte eine lange Liste anzeigen. Nun sind Sie in der Lage, alle
Daten abzurufen, indem Sie Abfragen verwenden.
Soweit, so gut.
Bis jetzt haben wir nur MySQL verwendet und konnten alles damit machen.
Was ist also der Sinn von Perl ?
Perl wird uns dabei helfen, diese Abfragen zu automatisieren und um die
Ergebnisse in einem Web-Browser anzuzeigen usw. Auch hier ist
vorausgesetzt, daß die Perl-Module korrekt installiert wurden, um MySQL
in Verbindung mit Perl zu verwenden.
Wir werden jetzt Perl-Skripte schreiben, die wir als CGI-Skripte verwenden
werden. Sie werden uns auch ermöglichen Perl und HTML zu mischen, um
die Datenbank abzufragen und die Ausgabe zu formatieren.
Wir werden ein einfaches Beispiel-Skript verwenden, das uns erlaubt, alle
vom gleichen Autor geschriebenen Artikel zu durchsuchen. Wir lassen die
Artikelnummer, die Kategorie, den Titel, die Namen der Übersetzer für die
verschiedenen Sprachen anzeigen (nur die vollständigen Projekte), die
Ausgabe und wann die Artikel veröffentlicht wurden.
Sie können dieses Skript als Vorlage für Ihre eigene Anwendung benutzen,
aber seien Sie sich bewußt, daß dieses Beispiel kein sehr sicheres
Programm ist. Sie können eine ausführlicher kommentierte Version
dort bekommen.
# First, we say this is a "Tainted" Perl script.
#!/usr/bin/perl -Tw
#
# This is a comment
# db consult
#
# We use the Perl DBI module
use DBI;
# As cgi :
use CGI qw(param());
print <<END_of_start;
Content-type: text/html
<html>
<title>LFAuthors main db</title>
<center><TABLE>
<TR VALIGN=TOP>
<TD><form action="/cgi-bin/lf.cgi" method="get">
# Here comes the button's title for the launching page
<input type="submit" value=" LFAuth ">
</form>
</TD>
</TR>
</TABLE>
<center><H2>Search by author</H2></center>
<form action=\"/cgi-bin/lf.cgi\" method=\"get\">Author name : <input
type=\"text\" size=\"30\" name=\"author\"><input type=\"submit\"
value=\"Search...\"></form></center>
END_of_start
if (param("author") ne '') {
$author = param("author");
$autsrch.='"';
$autsrch.=$author;
$autsrch.='"';
# We connect to the database named lf as user doe
$dbh = DBI->connect("DBI:mysql:lf","doe",'');
$sth = $dbh->prepare("
select *
from trissue
where
author = $autsrch
");
$sth->execute;
print <<END_suite;
<center>
<TABLE BORDER=>
<tr bgcolor=#A1C4EE>
<th width=60 align=CENTER><font color=#000000> Num </font></th>
<th width=110 align=CENTER><font color=#000000> Category </font></th>
<th width=110 align=CENTER><font color=#000000> Title </font></th>
<th width=110 align=CENTER><font color=#000000> Author </font></th>
<th width=110 align=CENTER><font color=#000000> En </font></th>
<th width=110 align=CENTER><font color=#000000> Es </font></th>
<th width=110 align=CENTER><font color=#000000> Fr </font></th>
<th width=110 align=CENTER><font color=#000000> De </font></th>
<th width=110 align=CENTER><font color=#000000> Nl </font></th>
<th width=110 align=CENTER><font color=#000000> Ru </font></th>
<th width=110 align=CENTER><font color=#000000> Tk </font></th>
<th width=110 align=CENTER><font color=#000000> Issue </font></th>
</tr>
END_suite
while( ($num,$category,$title,$author,$en,$es,$fr,$de,$nl,$ru,$tk,$issue)
=$sth->fetchrow() ) {
print "<tr>";
print "<td width=60 bgcolor=#FFFFE8 align=center> $num</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $category</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $title</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $author</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $en</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $es</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $fr</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $de</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $nl</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $ru</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $tk</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $issue</td>";
print "</tr>";
}
print "</TABLE>";
print "<BR>";
print "<BR>";
print "<br>";
} else {
# DB Connect
$dbh = DBI->connect("DBI:mysql:lf","doe",'');
# Search
$sth = $dbh->prepare("
select *
from trissue
");
$sth->execute;
# Display result
print <<SUITE;
<center>
<TABLE BORDER=>
<tr bgcolor=#A1C4EE>
<th width=60 align=CENTER><font color=#000000> Num </font></th>
<th width=110 align=CENTER><font color=#000000> Category </font></th>
<th width=110 align=CENTER><font color=#000000> Title </font></th>
<th width=110 align=CENTER><font color=#000000> Author </font></th>
<th width=110 align=CENTER><font color=#000000> En </font></th>
<th width=110 align=CENTER><font color=#000000> Es </font></th>
<th width=110 align=CENTER><font color=#000000> Fr </font></th>
<th width=110 align=CENTER><font color=#000000> De </font></th>
<th width=110 align=CENTER><font color=#000000> Nl </font></th>
<th width=110 align=CENTER><font color=#000000> Ru </font></th>
<th width=110 align=CENTER><font color=#000000> Tk </font></th>
<th width=110 align=CENTER><font color=#000000> Issue </font></th>
</tr>
SUITE
while( ($num,$category,$title,$author,$en,$es,$fr,$de,$nl,$ru,$tk,$issue)
=$sth->fetchrow() ) {
print "<tr>";
print "<td width=60 bgcolor=#FFFFE8 align=center> $num</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $category</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $title</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $author</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $en</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $es</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $fr</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $de</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $nl</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $ru</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $tk</td>";
print "<td width=110 bgcolor=#FFFFE8 align=left> $issue</td>";
print "</tr>";
}
print "</TABLE>";
print "<BR>";
}
print end_html;
$sth->finish;
# Disconnect
$dbh->disconnect;
exit;
Es ist klar, daß Sie das Ganze sichern müssen, wenn Sie auf Ihrer Webseite
eine Datenbank anbieten wollen. Natürlich werden wir keine schrittweise
Anleitung geben, wie man eine Webseite oder einen Datenbank-Server sichert.
Wie auch immer, es ist wichtig auf Grundlegendem zu bestehen.
Um es kurz zu machen: wenn Sie Dienste im WWW anbieten, ist das Erste was Sie
sichern müssen, der Web-Server. Dies ist weit außerhalb des Rahmens dieses
Artikels. Wenn Sie mehr über dieses Thema lernen wollen, gibt es dazu Unmengen
an verfügbarer Dokumentation. Ein schöner Start ist das
Linux Documentation Project.
Der nächste Schritt betrifft den Datenbank-Server. Wenn Sie ein
Werkzeug wie MySQL installieren, vergessen Sie nicht den Sicherheitsteil
des Manuals zu lesen. Nochmals gilt die grundlegende Sorge den
Benutzerpaßwörtern: Lassen Sie niemals ein Benutzerkonto ohne Paßwort,
insbesondere das root-Account der Datenbank (welches ein anderes als das
des root-Account des Rechners sein sollte). Der andere wichtige Punkt
betrifft die Rechte: geben Sie nicht jedem alle Rechte. Es scheint
offensichtlich... und deshalb vergessen es viele Leute einfach!
Um noch weiter zu gehen: warum nicht die Datenbank in eine Chroot-Umgebung
verschieben? Lesen Sie
Mark's article"Chrooting all services"
über dieses Thema. Er schreibt über eine andere Datenbank, aber was er
schreibt, kann auf MySQL angewendet werden.
Eine andere Sicherheitsmaßnahme betrifft die Datenzirkulation. Es ist
kein schlechter Gedanke, die Daten durch einen Tunnel zu senden und zu
empfangen. Sie können den Artikel
Durch den Tunnel
für weitere Hinweise durchlesen.
Nicht zuletzt ist sicheres Programmieren einer der Grundgedanken. Perl ist
eine großartige Sprache, aber es ist recht einfach, damit Programmierfehler
zu machen. Ein weiterer LinuxFocus-Artikel kann Ihnen beibringen, was zu tun ist,
besonders bei Perl. Schauen Sie sich mal
hier um. Es ist der letzte
Artikel der "Sicheres Programmieren"-Serie und betrifft besonders
CGI-Skripte. Ein Muß!
Natürlich setzt dies voraus, daß Sie schon ein gesichertes System ohne
bekannte Sicherheitslöcher haben, mit den letzten Patches und vielen
nötigen Sicherheitswerkzeugen wie NIDS (Network Intrusion Detection
System), wie Snort (auf
http://www.snort.org/),
Firewall, Port- und Sicherheitsscanner (nmap, nessus), etc.
Wenn Sie es sich leisten können, dann können Sie sich auch für jeden
angebotenen Dienst einen anderen Server einrichten: ein Web-Server, ein
Datenbank-Server... und deren Mirror für Hochverfügbarkeit. Und so weiter!
Sie werden niemals damit fertig, da Sicherheit niemals erreicht wird.
Versuchen Sie einfach die Risiken zu reduzieren... und sie werden täglich
immer schlimmer. Ich habe Sie gewarnt.
Da gilt: "There Is More Than One Way to Do It (viele Wege führen nach Rom)",
können Sie es sich
selbst aussuchen, wie Sie die Sache verwirklichen. Es gibt viele
RDBMS und viele Sprachen, um mit ihnen zu kommunizieren. Der
Gedanke hinter diesem Artikel war, zu zeigen, wie gut MySQL und
Perl arbeiten, wenn man sie zusammen nutzt.
Natürlich war die Wahl sehr subjektiv: Ich liebe MySQL, weil es
eher klein ist, unter vielen Betriebssystemen läuft, schnell und
zuverlässig ist... Ausserdem schätze ich die Arbeit des MySQL-
Teams sehr, ohne die zahlreichen Helfer zu vergessen. Und was mir
am meisten gefällt: diese Leute haben nicht versucht, das Rad neu
zu erfinden. Sie liessen den Dingen ihre Einfachheit.
Bezüglich Perl wurde schon alles gesagt: Was könnte ich noch
hinzufügen? Ich glaube, Sie können nicht ohne arbeiten, ob Sie nun
ein Netzwerkadministrator sind oder ein Entwickler oder was auch
immer. Die Perl-Community ist eine der größten Quellen von
gemeinschaftlich geteiltem Wissen. Es ist ein Magazin erhältlich,
welches sich Perl Journal nennt, welches inzwischen jeder zweiten
Ausgabe des SysAdmin Magazins beiliegt. Wenn Sie es abonnieren möchten,
dann gehen Sie auf http://www.samag.com/.
Da wir gerade über großartige Arbeit sprechen: hier kommt der übliche Abschnitt
mit dem Off-Topic-Thema. Sie, die LinuxFocus-Leser, haben wahrscheinlich die
kleine Anzahl von beteiligten Leuten dieses Magazins noch nicht wahrgenommen.
Trotzdem können Sie es in vielen verschiedenen Sprachen lesen. Haben Sie
jemals bemerkt, daß einige der Teams fast immer aus einer oder zwei Personen
besteht, die die ganze Arbeit machen? Sie sind Webmaster, Übersetzer usw.
Schauen Sie beim russischen oder türkischen Team nach: Sie werden sehen, daß
die meisten der Artikel von Kyril oder Erdal übersetzt werden. Schauen Sie bei
den Projekten, die am Entwickeln sind, wie Arabisch oder Portugiesisch:
gleiches Ergebnis! Ich möchte ihnen allen zu dieser großartigen Arbeit
gratulieren. Danke an Euch alle: Die Free Software Community verdankt Euch
viel.
Entschuldigung für diese Abschweifung, aber ich glaube, das mußte gesagt
werden.
Zurück zum Thema: Lassen Sie mich mit ein paar Worten über Freie Software
abschliessen. Die Leute bei MySQL oder Perl verdienen ein herzliches Dankeschön.
Sie versorgen Sie mit großartigen Werkzeugen, meist kostenlos. Dennoch sind
diese Werkzeuge oft so gut wie echte kommerzielle Produkte (wenn nicht sogar
besser), sie werden regelmäßig verbessert, sehr gut dokumentiert und Sie können
sie auf fast jedem Unix verwenden. Können Sie woanders etwas Vergleichbares
finden? Ich fürchte nicht!
Dieser Artikel wird Ihnen wahrscheinlich nicht viel beibringen, wenn es Sie
jedoch dazu anregt, diese Produkte auszuprobieren, ist er nicht nutzlos.
Leben wir nicht in einer großartigen Zeit?
Perl mongers
Guidos Perl-Tutorium:
Perl I
Perl II
Perl III
Buchkritik von "Professional Perl Programming":
Perl Programming
Atifs
Beitrag zu MySQL.
Eine Übersicht von MySQL in LinuxFocus; ein alter, aber immer noch aktueller
Artikel:
MySQL
Ein altes LinuxFocus SQL-Tutorium in zwei Teilen:
SQL Teil I
SQL Teil II
|
Der LinuxFocus Redaktion schreiben
© Georges Tarbouriech "some rights reserved" see linuxfocus.org/license/ http://www.LinuxFocus.org |
Autoren und Übersetzer:
|
2005-01-14, generated by lfparser_pdf version 2.51