Suchergebnis abfangen/duplizieren (solved) (Allgemeines zu Perl)

[thread]17796[/thread]

Suchergebnis abfangen/duplizieren [solved]

Tags: perl5 Similar Threads

Readers: 23

Articles: hide open all | hide show old branches

+11 replies

geloescht

2012-09-30 14:59

User since
2012-06-19
141 articles
BenutzerIn
[default_avatar]

Hallo Perlaner

Es betrifft diesen Codeausschnitt:

Code (perl): (dl )

$sth=$dbh->prepare("SELECT * FROM kunden WHERE kdnummer LIKE '$kdnummer'");
$sth->execute();

$Text::Table::Tiny::COLUMN_SEPARATOR = '|';
$Text::Table::Tiny::ROW_SEPARATOR = '-';
$Text::Table::Tiny::CORNER_MARKER = '+';
$Text::Table::Tiny::HEADER_ROW_SEPARATOR = '_';
$Text::Table::Tiny::HEADER_CORNER_MARKER = '|';

# Tabellentest

$rows=[];
push @$rows, [qw(kdnummer kddatum kdfirma kdstrasse kdhausnummer kdplz kdort kdland kdansprechpartner kdtelefon kdfax kdemail)];
while(@row = $sth->fetchrow_array){
                                  @row=map{decode("UTF-8", $_)}@row;
                                  push @$rows, [@row];
                                  }

print Text::Table::Tiny::table(rows => $rows, header_row => 1);
print " \n";
print "$rows \n";

Ich brauche die einzelnen Werte , die die Datenbank gefunden hat und würde ihnen gerne einzelne Skalare zuordnen.

Die Ausgabe sieht so aus:

Code: (dl )

+-----------------------------------------------------+ 
| E********** / Daten-Verwaltungs-Programm (EZ-DVP) | 
+-----------------------------------------------------+ 
 
>> Rechnung erstellen << 
 
Rechnungskopf laden durch Eingabe der Kundennummer :100102
 
+----------+---------+---------+-----------+--------------+-------+-------+--------+-------------------+-----------+-------+---------+
| kdnummer | kddatum | kdfirma | kdstrasse | kdhausnummer | kdplz | kdort | kdland | kdansprechpartner | kdtelefon | kdfax | kdemail |
+----------+---------+---------+-----------+--------------+-------+-------+--------+-------------------+-----------+-------+---------+
+----------+---------+---------+-----------+--------------+-------+-------+--------+-------------------+-----------+-------+---------+ 
ARRAY(0x1985fd8) 
 
 
Datensatzsuche beendet! [ENTER]

Der Testausdruck des Arrays misslang.

Das ist jetzt ein leerer Datensatzt, aber es geht mir um den Inhalt des Suchergebnisses in der DB. Durch =>$rows wird das ganze wahrscheinlich zum Tabellengenerator geschickt. Komm ich denn da gar nicht mehr an die Werte ran? Diese bräuchte ich, um einen Briefkopf ordentlich zu formatieren.

Gruss HP-User
Last edited: 2012-10-05 14:45:29 +0200 (CEST)

Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?

geloescht

2012-09-30 15:48
User since
2012-06-19
141 articles
BenutzerIn
Hi nochmal

Um die Sache etwas abzukürzen:
Code (perl): (dl )

1 2 3 4 5 6

$rows=[]; push @$rows, [qw(kdnummer kddatum kdfirma kdstrasse kdhausnummer kdplz kdort kdland kdansprechpartner kdtelefon kdfax kdemail)]; while(@row = $sth->fetchrow_array){ @row=map{decode("UTF-8", $_)}@row; push @$rows, [@row]; }
Kann mir einer erklären, was eigentlich in diesen 4-5 Zeilen passiert?

Was ich schon kenne:

push=das drückt Inhalt wo hinein

while=ist ne Schleife, die solange läuft, bis irgend eine Bedingung erreicht ist.

$rows= Normal ein Skalar. Bekommt der hier zwei Eckige Klammern zugewiesen?

qw ()=hab ich von euch gelernt, quoted by whitespace, also grob gesagt, gesammelte Dinge, getrennt durch Leerzeichen.

Das map ist mir unbekannt. Ebenso, wie ein Skalar ein Array sein kann. Ich weiss, die Array-Referenz-Geschichte hatten wir schon mal irgendwo. Ich raff es einfach nicht. Gibt es kein einfaches Beispiel für "@$".

Gruss HP-User
Last edited: 2012-09-30 15:50:50 +0200 (CEST)
Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
+9 replies

FIFO

2012-09-30 15:59

User since
2005-06-01
469 articles
BenutzerIn

user image

Jeder Datensatz (Tabellenzeile in der DB) wird doch per fetchrow_array() in ein Array @row eingelesen. Die Werte aus @row werden dann als anonymes Array gespeichert und eine Referenz auf dieses wird dann auf ein ebenfalls anonymes Array gepusht. Auf dieses kannst Du zugreifen, wenn Du die Referenz darauf ($rows) wieder de-referenzierst $wert = $rows->[$zeile][$spalte]:

Code (perl): (dl )

my $kdnummer_aus_zeile_3 = $rows->[3][0];

Wenn Du alle Datensätze mit einer bestimmten kdnummer ausgeben willst:

Code (perl): (dl )

my $kdnummer = "12345"
for my $zeile (@$rows) {
    next unless $zeile->[0] eq $kdnummer;
    # print join('; ', @{$rows->[$zeile]}), "\n"; # FALSCH
    print join('; ', @$zeile), "\n";   # korrigiert
}

edit: Dereferenzierungspfeile fehlten z.T., *schäm*
Last edited: 2012-09-30 19:37:57 +0200 (CEST)

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"

+8 replies

geloescht

2012-09-30 18:24

User since
2012-06-19
141 articles
BenutzerIn
[default_avatar]

Hi FIFO

Dein Code:

Code (perl): (dl )

for my $zeile = (@$rows) {
                         next unless $zeile->[0] eq $kdnummer;
                         print join('; ', @{$rows->[$zeile]}), "\n";
                         }

führt bei mir zum Programmabbruch:

Code: (dl )

syntax error at ./EZ-DVP.pl line 2906, near "$zeile ="
Global symbol "$zeile" requires explicit package name at ./EZ-DVP.pl line 2907.
Global symbol "$zeile" requires explicit package name at ./EZ-DVP.pl line 2908.
syntax error at ./EZ-DVP.pl line 2909, near "}"
Execution of ./EZ-DVP.pl aborted due to compilation errors.

Ich hab mir mal alles ausgeben lassen. Also "@row", "$rows" und "@$rows":

Code: (dl )

1
2
3

nhalt von array-row:  
Inhalt von skalar-rows: ARRAY(0xd16110) 
Inhalt von array-skalar-rows: ARRAY(0xd150a8) ARRAY(0xd158b8)

Bei @row gibt es keine Ausgabe - scheint leer zu sein. Die anderen Werte sehen nach Speicheradressen aus.

Kann es sein, dass nachdem die Werte in @row an das Tabellenmodul übergeben worden sind, @row automatisch leer ist?

Des weiteren hab ich das versucht:

Code (perl): (dl )

1
2

my ($REkdnummer, $REkddatum, $REkdfirma, $REkdstrasse, $REkdhausnummer, $REkdplz, $REkdort, $REkdland, $REkdansprechpartner, $REkdtelefon, $REkdfax, $REkdemail) = split(/ /,@row);
print "$REkdnummer, $REkddatum, $REkdfirma, $REkdstrasse, $REkdhausnummer, $REkdplz, $REkdort, $REkdland, $REkdansprechpartner, $REkdtelefon, $REkdfax, $REkdemail \n";

Ich habe bei

Code (perl): (dl )

split(/ /,@row);

@row, @$rows und $rows probiert - alles scheint nicht zu gehen. Bei splitt "split(/ /" hab ich "Leerzeichen" und "Komma" ausprobiert -> split(/,/ und ->split(/ /

So siehts aktuell aus - sachdienliche Hinweise, die zur Ergreifung des Softwareübeltäters führen werden hier im Perlrevier dankend entgegengenommen :-)

Gruss HP-User

Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?

FIFO

2012-09-30 19:02

User since
2005-06-01
469 articles
BenutzerIn

sorry, das = muss weg.
Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
+6 replies

geloescht

2012-09-30 19:05

User since
2012-06-19
141 articles
BenutzerIn
[default_avatar]

Hallo Leute

Hab es hinbekommen:

Code (perl): (dl )

if ($rows eq "") {goto Rechnungen;}

my $REkdnummer = "";
my $REkddatum = "";
my $REkdfirma = "";
my $REkdstrasse = "";
my $REkdhausnummer = "";
my $REkdplz = "";
my $REkdort = "";
my $REkdland = "";
my $REkdansprechpartner = "";
my $REkdtelefon = "";
my $REkdfax = "";
my $REkdemail = "";

$REkdnummer = $rows->[1][0];
$REkddatum = $rows->[1][1];
$REkdfirma = $rows->[1][2];
$REkdstrasse = $rows->[1][3];
$REkdhausnummer = $rows->[1][4];
$REkdplz = $rows->[1][5];
$REkdort = $rows->[1][6];
$REkdland = $rows->[1][7];
$REkdansprechpartner = $rows->[1][8];
$REkdtelefon = $rows->[1][9];
$REkdfax = $rows->[1][10];
$REkdemail = $rows->[1][11];

print "$REkdnummer \n";
print "$REkddatum \n";
print "$REkdfirma \n";
print "$REkdstrasse \n";
print "$REkdhausnummer \n";
print "$REkdplz \n";
print "$REkdort \n";
print "$REkdland \n";
print "$REkdansprechpartner \n";
print "$REkdtelefon \n";
print "$REkdfax \n";
print "$REkdemail \n";

Nur noch eine Kleinigkeit:

Wie kann ich prüfen, ob $rows leer, bzw. undefiniert ist. Das obere Konstrukt funktioniert, solange man eine existierende KD-Nummer angibt. Findet die Abfrage keinen Datensatz in der DB kommt dieser Fehler:

Code: (dl )

+-----------------------------------------------------+ 
| E********** / Daten-Verwaltungs-Programm (EZ-DVP) | 
+-----------------------------------------------------+ 
 
>> Rechnung erstellen << 
 
Rechnungskopf laden durch Eingabe der Kundennummer :100102
 
+----------+---------+---------+-----------+--------------+-------+-------+--------+-------------------+-----------+-------+---------+
| kdnummer | kddatum | kdfirma | kdstrasse | kdhausnummer | kdplz | kdort | kdland | kdansprechpartner | kdtelefon | kdfax | kdemail |
+----------+---------+---------+-----------+--------------+-------+-------+--------+-------------------+-----------+-------+---------+
+----------+---------+---------+-----------+--------------+-------+-------+--------+-------------------+-----------+-------+---------+ 
Use of uninitialized value $REkdnummer in concatenation (.) or string at ./EZ-DVP.pl line 2928.
 
Use of uninitialized value $REkddatum in concatenation (.) or string at ./EZ-DVP.pl line 2929.
 
Use of uninitialized value $REkdfirma in concatenation (.) or string at ./EZ-DVP.pl line 2930.
 
Use of uninitialized value $REkdstrasse in concatenation (.) or string at ./EZ-DVP.pl line 2931.
 
Use of uninitialized value $REkdhausnummer in concatenation (.) or string at ./EZ-DVP.pl line 2932.
 
Use of uninitialized value $REkdplz in concatenation (.) or string at ./EZ-DVP.pl line 2933.
 
Use of uninitialized value $REkdort in concatenation (.) or string at ./EZ-DVP.pl line 2934.
 
Use of uninitialized value $REkdland in concatenation (.) or string at ./EZ-DVP.pl line 2935.
 
Use of uninitialized value $REkdansprechpartner in concatenation (.) or string at ./EZ-DVP.pl line 2936.
 
Use of uninitialized value $REkdtelefon in concatenation (.) or string at ./EZ-DVP.pl line 2937.
 
Use of uninitialized value $REkdfax in concatenation (.) or string at ./EZ-DVP.pl line 2938.
 
Use of uninitialized value $REkdemail in concatenation (.) or string at ./EZ-DVP.pl line 2939.
 
 
 
Datensatzsuche beendet! [ENTER]

Last edited: 2012-10-05 14:45:57 +0200 (CEST)

Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?

+5 replies
FIFO

2012-09-30 19:16
User since
2005-06-01
469 articles
BenutzerIn
2012-09-30T17:05:36 ?
Wie kann ich prüfen, ob $rows leer, bzw. undefiniert ist.

mit defined()

versuch mal:
Code (perl): (dl )

1 2 3 4 5 6 7 8

my $kdnummer = '21365123'; for my $zeile (@$rows) { my $kn = $zeile->[0]; if ($kn eq $kdnummer) { print "$_\n" for @$zeile; # die Elemente von @$zeile sind Deine Werte } }
edit: Achtung: $rows ist in Deinem Beispiel nie undefined. $rows ist eine Referenz (ein Zeiger) auf ein anonymes Array ($rows = []; in Zeile 12 Deines ersten Postings). Deswegen gibt print $rows ja auch sowas wie ARRAY(0x12345678) aus, nämlich die Adresse des anonymen Arrays.
Ob dieses wiederum leer ist, siehst Du, indem Du die Zahl seiner Elemente prüfst:
Code: (dl )

1 2 3

if (scalar(@$rows) == 0) { print '$rows ist leer.'; }
Editiert von FIFO: defined() in der Schleife entfernt, sinnfrei

Editiert von FIFO: OMG, ich geh zu BASIC
Last edited: 2012-09-30 19:36:17 +0200 (CEST)
Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
- +4 replies
- geloescht
  
  2012-09-30 21:25
  User since
  2012-06-19
  141 articles
  BenutzerIn
  Abend FIFO
  
  Das Prüfen auf die Anzahl der Elemente im Array war nicht möglich. Habe zig Varianten ausprobiert. Nachdem der Fehler aber beim Versuch einen undef-Skalar auszudrucken passierte, habe ich mir so beholfen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
  
  my $REkdnummer = $rows->[1][0]; my $REkddatum = $rows->[1][1]; my $REkdfirma = $rows->[1][2]; my $REkdstrasse = $rows->[1][3]; my $REkdhausnummer = $rows->[1][4]; my $REkdplz = $rows->[1][5]; my $REkdort = $rows->[1][6]; my $REkdland = $rows->[1][7]; my $REkdansprechpartner = $rows->[1][8]; my $REkdtelefon = $rows->[1][9]; my $REkdfax = $rows->[1][10]; my $REkdemail = $rows->[1][11]; if (not defined $REkdnummer) {$REkdnummer = "-";} if (not defined $REkddatum) {$REkddatum = "-";} if (not defined $REkdfirma) {$REkdfirma = "-";} if (not defined $REkdstrasse) {$REkdstrasse = "-";} if (not defined $REkdhausnummer) {$REkdhausnummer = "-";} if (not defined $REkdplz) {$REkdplz = "-";} if (not defined $REkdort) {$REkdort = "-";} if (not defined $REkdland) {$REkdland = "-";} if (not defined $REkdansprechpartner) {$REkdansprechpartner = "-";} if (not defined $REkdtelefon) {$REkdtelefon = "-";} if (not defined $REkdfax) {$REkdfax = "-";} if (not defined $REkdemail) {$REkdemail = "-";} if ($REkdnummer eq "-") {goto Rechnungen;} print "$REkdnummer \n"; print "$REkddatum \n"; print "$REkdfirma \n"; print "$REkdstrasse \n"; print "$REkdhausnummer \n"; print "$REkdplz \n"; print "$REkdort \n"; print "$REkdland \n"; print "$REkdansprechpartner \n"; print "$REkdtelefon \n"; print "$REkdfax \n"; print "$REkdemail \n";
  
  Jetzt findet der Testausdruck nur noch statt, wenn Werte vorhanden sind. Ohne Werte werden die undef-Skalare mit "-" befüllt. Dieses Minuszeichen prüfe ich und Stelle die Abfrage zurück zum Rechnungsanfang. Resultat:
  
  Wenn eine KD-Nummer für den Rechnungskopf eingegeben wird, die nicht existiert, wird die Eingabemaske zurückgesetzt, so dass man eine neue KD-Nummer angeben muss.
  
  Jetzt kann es also endlich weitergehen - Gott sei Dank!
  
  Ich bedanke mich für die ernorme Geduld der Stammposter hier *merci*
  
  Gruss HP-User
  Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
  - guest wer
    
    2012-09-30 22:33
    
    wenn dein code immer so aussieht, schreibe ich ein 2500+ script in 250 zeilen neu.
    Last edited: 2012-10-01 01:14:05 +0200 (CEST)
  - +2 replies
  - hlubenow
    
    2012-10-05 19:16
    
    User since
    2009-02-22
    885 articles
    BenutzerIn
    
    @HP-User: Dein Code sieht wie das aus, was Larry "Perl-Babysprache" nennt. Das ist ok, ist aber verbesserungsfähig.
    Wie sich in den anderen Diskussionen gezeigt hat, setzt Du aber leider viele Ratschläge nicht um.
    Vielleicht würdest Du ein Buch besser akzeptieren? Mir hat immer 'Laura Lemay - Perl in 21 Tagen" gefallen, kannst ja mal danach googeln.
    Daß es inzwischen ein bißchen alt ist, sollte bei diesen Grundlagen nicht stören.
    - bianca
      
      2012-10-05 20:28
      
      User since
      2009-09-13
      7016 articles
      BenutzerIn
      
      Der ist längst über alle Berge....
      War etwas verwirrt.
      10 print "Hallo"
      20 goto 10

View all threads created 2012-09-30 14:59.