suchen und vergleichen (Seite 3) (Datenbanken und Verzeichnisdienste)

Dubu

2004-12-22 15:58

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Du uebergibst an die Routine such_eintr() einen Hash, nimmst in der Routine aber nur den ersten uebergebenen Parameter und behandelst ihn wie eine Hashreferenz:

Code: (dl )

...
such_eintr(%hash);    # hier wird der Hash uebergeben
.
.
.
sub such_eintr {
        my ($param)=@_;  # hier wird nur der erste Key ausgelesen!
...
        if ($suchen){              #### Zeile 225 (wahrscheinlich eher 224)
                print ...$param->{doctyp}...;   # Fehler!
...

Kathrin

2004-12-22 17:27

User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]

Aber bevor ich %hash_doc eingefügt hatte, also nur %hash übergab, lief alles einwandfrei. Da wurden dann alle übergebenen Parameter ordnungsgemäß eingefügt.

esskar

2004-12-22 17:33

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

versuch es so

Code: (dl )

1
2

my (%param)=@_;
my $param = \%param;

Kathrin

2004-12-22 17:59

User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]

jetzt kommt zwar die Fehlermeldung nicht mehr aber jetzt steh ich wieder ganz am Anfang meines Problems :rock:
Es wird einfach der letzte Eintrag aus der DB entnommen...

Kathrin

2004-12-22 18:49

User since
2004-12-15
158 Artikel
BenutzerIn
[default_avatar]

Ich bitte euch Leute, es ist wirklich sehr sehr wichtig :rock:
kann mir keiner weiterhelfen?

esskar

2004-12-22 19:00

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

ich versteh deine logik eh nicht so ganz

Code: (dl )

my $statement_suchen="SELECT * FROM tbl0011990 where ident_nr = '$identnr'";
my $sth_suchen=$dbh->prepare($statement_suchen) or die $DBI::errstr;
$sth_suchen->execute;
my %hash;
while (my @row = $sth_suchen->fetchrow_array())
{
   $hash{identnr}  = $row[0];
   $hash{doctyp}   = $row[2];
   $hash{docname}  = $row[3];
   $hash{head_de}  = $row[4] if ($row[1] eq 'DE');
   $hash{head_en}  = $row[4] if ($row[1] eq 'EN');
   $hash{head_fr}  = $row[4] if ($row[1] eq 'FR');
   $hash{deutsch}  = $row[5] if ($row[1] eq 'DE');
   $hash{englisch} = $row[5] if ($row[1] eq 'EN');
   $hash{franz}    = $row[5] if ($row[1] eq 'FR');
   $hash{ersteller}= $row[7];
   $hash{werk}     = $row[8];
   $hash{check1}   = $row[9];
   $hash{check2}   = $row[10];
   $hash{check3}   = $row[11];
   $hash{check4}   = $row[12];
}

ist eigentlich klar, dass da nur ein wert raus kommt; du überschreibst ja pro zeile die werte in %hash

Code: (dl )

1
2
3

my $statement_doc="SELECT docname FROM tbl0011990 where ident_nr = ?";
my $sth_doc=$dbh->prepare($statement_doc) or die $DBI::errstr;
$sth_doc->execute;

diese docnamen hast du dir doch schon mit der abfrage oben drüber geholt; macht nicht viel sinn, oder?

renee

2004-12-22 19:37

User since
2003-08-04
14371 Artikel
ModeratorIn

[quote=esskar,22.12.2004, 18:00]

Code: (dl )

1
2
3

my $statement_doc="SELECT docname FROM tbl0011990 where ident_nr = ?";
my $sth_doc=$dbh->prepare($statement_doc) or die $DBI::errstr;
$sth_doc->execute;

diese docnamen hast du dir doch schon mit der abfrage oben drüber geholt; macht nicht viel sinn, oder?[/quote]
Da fehlt noch was:

Code: (dl )

$sth_doc->execute($ident_nr);

Man muss den Platzhalter ja füllen!

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

esskar

2004-12-22 19:39

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

jo; okay;
erklärt die logik trotzdem nicht;
ist also noch ein bug!

renee

2004-12-22 19:42

User since
2003-08-04
14371 Artikel
ModeratorIn

Damit wollte ich auch nicht Deine Antwort kritisieren, sondern auf einen Fehler im Programm hinweisen!

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

esskar

2004-12-22 19:44

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=renee,22.12.2004, 18:42]Damit wollte ich auch nicht Deine Antwort kritisieren, sondern auf einen Fehler im Programm hinweisen![/quote]
jo; sorry