Suchergebnis abfangen/duplizieren (gelöst) - #162243 (Allgemeines zu Perl)

geloescht

2012-09-30 18:24

User since
2012-06-19
141 Artikel
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?