[Postfixbuch-users] mysql --> hash ?

[Stefan G. Weichinger]

Sandy Drobic wrote:
> Marcel Hartmann wrote:
>>> Da mußt Du schon selber 20 Zeilen Code in den Ring werfen.
>> DAS will ich sehen :-) Ich bräuchte dann doch mehr Zeilen dazu, weil
>> alles fein in unterschiedliche Hash Table Files käme und so weiter...
> 
> #! /usr/bin/perl -wT
> 
> use strict;
> use DBI;
> 
> my $dbh =DBI->connect('dbi:mysql:databasename', 'username', 'password') ||
>    die "Cannot connect to MySQL-Server: $DBI::errstr\n";
> 
> my $sqlstatement = "select username from databasename.table";
> 
> my $sth = $dbh->prepare( $sqlstatement ) ||
>       die "Cannot prepare statement: $DBI::errstr\n";
> 
>       $sth->execute ||
>       die "Cannot execute query:  $DBI::errstr\n";
> 
> my @resultarray = $sth->fetchrow_array;
> 
> while (@resultarray) {
> 	print "@resultarray \t relayrecipient\n";
> 	@resultarray = $sth->fetchrow_array;
>      }
> 
> $sth->finish;
> 
> $dbh->disconnect;
> 
> exit 0
> 
> 
> Spare dir die Leerzeichen und Fehlerausgaben, und du hast genügend Platz 
> für deinen eigenen Code innerhalb von 20 Zeilen. (^-^)

Danke, Sandy, für diesen guten Ansatz!
Werde mich gleich ans Einarbeiten machen.

DANK, Stefan