Perl, Referenzen & hashes...

28 Jun 2001

      Hallo alle zusammen,

in meinem Modul probiere ich Schreibarbeit für eine
Db Anfrage zu sparen.

Folgendes Problem:

Das Modul gibt mir eine Referenz auf einen Hash zurück.
Das funktioniert prima, mit

$ref->{'$key'}

kann ich problemlos auf eine Reihe der DB zugreifen.

Aber wie sieht es aus, wenn ich eine kpl. Tabelle haben
möchte?

Was muss ich am folgenden Modul ändern?

############### schnipp ################################

package my_shop;

use Exporter;
use DBI;

@ISA = ('Exporter','DBI');   # Von Exporter erben
@EXPORT_OK = ('get_array');  # Func´s exportieren

sub get_array                # hash_ref holen...
{
  my ($db,$sql_host,$port,$pwd,$sql_user,$sql_query) = @_;
  my (@row,$hash_ref,$array_ref);

  $dbh = DBI->connect("dbi:mysql:$db:$sql_host:$port",
                      "$sql_user",
                      "$pwd",
                      {RaiseError => 1, AutoCommit => 1});

  my $sth = $dbh->prepare("$sql_query") or die $sth->errstr;
  $sth->execute or die $sth->errstr;

  while ($hash_ref = $sth->fetchrow_hashref)
  {
     return $hash_ref;  
  }

  $sth->finish;

  $dbh->disconnect;

}

1;

Dank allen für die Bemühungen

Ciao

Andre

Perl, Referenzen & hashes...

Andre Heine