Community  »  Perl/CGI: Scripts des Perl-Archiv

Foreach ausgabe wird überschrieben	Seitenanfang
Hallo, ich bin neu hier und habe eine Frage an euch. Ich habe ein Text @array1 mit 800 Zeile und ein Text array2 mit 800 Zeile. Ich will zeile1 in array1 und zeile2 in array2 vergleich und ausgeben. Dann zeile1 und zeile2 bis 800 Mal. Mein Problem ist: Wenn ich diese foreach schleife benutze wird nur das ergebnis der letzten Zeile ausgegeben. Ich denke die ersten Ergebnisse werden überschrieben und der letzte zurückgegeben. Wie kann ich es vermeiden. foreach $el2 (@array2) { foreach $el (@array1){ if (defined $el2 && el eq $el2){ push ((@final), $el2); undef $el2; last; } } } $gleiche_element== @final; print "\n@final"; print "\n$gleiche_element; Ich will am Ende so was haben: the old president is busch the new one is Ban 2 (als Ausgabe) und so weiter bbis 800 mal. Datum: 16.03.2008-12:19
re: Foreach ausgabe wird überschrieben	Seitenanfang
Moin, warum machst du es nicht in etwa so: @one = qw(eine zwei drei); @two = qw(null eine zwei drei); for ($i=0;$i<@one;$i++){ if ($one[$i] eq $two[$i+1]){ push (@final, $one[$i]); } else { print "fehler...\n"; } } print "@final\n"; Greets Datum: 08.04.2008-10:26