"tie" ersetzen durch mySQL-Datenbank

[X:truder]

Hallo Sam,

Tie::DBI verwendet man, wenn man nur eine Tabelle hat, und auf diese Tabelle immer über einen Schlüssel zugreift. Dann kann man die ganze Datenbank "hinter einem Hash verstecken"; Vieleicht meinst du ja irgendwie sowas:

#!/usr/bin/perl

$USER = "irgendwer";
$PASSWORT = "sagichnicht";

use Tie::DBI;

tie %userdata, 'Tie::DBI', {
 db       => 'mysql:datenbankname',
 table    => 'userdata',
 key      => 'name',
 user     => $USER,
 password => $PASSWORT,
 CLOBBER  => 2,
};

print "Content-Type: text/html\n\n";

print "<h1> Datenbank hinter einem Hash versteckt </h1>\n";

print "<p>So sehen die Fields aus:\n";
foreach $f (  tied(%userdata)->fields ) {
 print "Field '$f' <br> \n";
}

print "<p>So sehen die Daten aus:\n";

foreach $name ( keys %userdata ) {
 $daten = $userdata{$name};
 print "<p>Name: $name, Passwort = ";
 print $daten->{'password'};
 print ", E-Mail ";
 print $daten->{'email'};
 print "</p>\n";
}

if (exists $userdata{'neuername'}) {
    print "<p> Es gibt schon einen User namens 'neuername'\n";
} else {
    $userdata{'neuername'} = { password => 'geheim!',
           email    => '[e-mail]' };
    print "<p> neuer User 'neuername' angelegt\n";
}

print "das wars\n";

Gruß

X:truder