Moin!
Da wir hier im Norden arbeite müssen, beschäftige ich mich auch heute weiter mit meinem Problem. Aber ich bin schon weiter.
Zeile einlesen, zerteilen, erste Spalte auf die Zahl 3 prüfen - wenn nicht gefunden, dann nächste Zeile einlesen.
Danke Sven. Mit deiner Hilfe und der von O'Reilly ging das ganz gut. Allerdings verstehe ich etwas nicht. Dieses Script (hier nur der relevante Auszug) hier läuft:
@Zeilen = ("");
open(DATEI, "<$Datei") || die "$Quelle nicht gefunden"; #Datei wird zum auslesen geöffnet
while (<DATEI>)
{
push(@Zeilen, $_);
}
close (DATEI);
for(@Zeilen)
{
($OrdNr, $ArtBld, $ArtNr, $ArtBez, $ArtBeschr, $ArtEUR) = split (/;/,$_);
print "$OrdNr\n";
if($OrdNr eq $Nummer)
{
print "$ArtBeschr\n";
}
}
wogegen es nicht läuft, wenn ich das print "$OrdNr\n"; for der if-Schleife weglasse.Warum?
Danke!
René
Retrotexteam