Thread Zeilenumbruch für foreach (7 answers)
Opened by Gast at 2007-08-01 00:41

Gast Gast
 2007-08-01 00:41
#96998 #96998
Hallo Leute,

irgendwie stehe ich gerade auf dem Schlauch - bitte hilf mir mal jemand runter...

ich möchte den output eines prozesses parsen. da das relativ komplex ist, habe ich vor das zweistufig zu machen. ich lese also von marke zu marke und schreibe die ergebnisse in einen String. wenn ich den dann wieder Zeilenweise auslesen möchte, betrachtet "foreach" den inhalt jedoch nur als EINE zeile, was die Sache beim weiteren Parsen ziemlich erschwert :(
Kann mir dazu jemand bitte nen Tip geben?

Hier das Prob als Pseudo-Code:

while (<PROC>) {
if (/marke/) {
print "marke"
} elsif (/marke2/ ) {
mystring .= "$_";
} else {
my_function ($mysting);
}

sub my_function () {
foreach (@_[0]) {
print "Zeile: $_\n"; ## <-- hier ist das Problem, "Zeile" wird nur einmal ausgegeben obwohl viele Zeilen in $mystring sind!
}
}

View full thread Zeilenumbruch für foreach