Opened by Luke at 2010-04-19 11:04
Hallo, hab jetzt seit einiger Zeit wieder was in Perl gemacht und komme nicht weiter. Kann man einen Satz in ein Arrayfeld speichern?
Hab folgenden Code angefertigt:
Die einzelnen Arrayfelder solln mit den Zeichen/Wörter/Sätzen zwischen | und | befüllt werden und am Ende das zweite Feld wieder übergeben. Hab auch schon einige Testausgaben gemacht und es sieht so aus als ob immer nur pro Feld EIN Buchstabe gespeichert wird obwohl in der Quelldatei folgendes drin steht:
Error1|Es handelt sich um einen Verbindungsfehler|12345|
---
theo. Müsste im $curr[2]"Es handelt sich um einen Verbindungsfehler" gespeichert sein...
Kann mir jemand helfen?
Luke
Hab folgenden Code angefertigt:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
sub read_data {
my @curr = (); # aktueller Datensatz
while (<>) { # bricht bei EOF ab
chomp;
if ($_ ne '---'){
@curr = split(/|/,$_);
$error=$curr[2];
} else {last;}
}
print $#curr;
return $error;
}Die einzelnen Arrayfelder solln mit den Zeichen/Wörter/Sätzen zwischen | und | befüllt werden und am Ende das zweite Feld wieder übergeben. Hab auch schon einige Testausgaben gemacht und es sieht so aus als ob immer nur pro Feld EIN Buchstabe gespeichert wird obwohl in der Quelldatei folgendes drin steht:
Error1|Es handelt sich um einen Verbindungsfehler|12345|
---
theo. Müsste im $curr[2]"Es handelt sich um einen Verbindungsfehler" gespeichert sein...
Kann mir jemand helfen?
Luke