Community  »  Perl: Allgemeines Forum

aus Listen suchen	Seitenanfang
Hilfe ich kenne mich gar nicht aus :-( Ich würde gerne aus einer Liste ein item in einer anderen Liste wiederfinden und sie dann ausgeben. nur ich weiss nichtmal wie ich die variablen richtig erstellen soll er meckert bei my $item2 = (@List2) und sagt requires explicit package name my $item = (@List) my $item2 = (@List2) my @List = (1, 2, 3, 4, 5) my @List2 = (1) while (my $item, @List) { for (my $item, @List2) { if (my $item == my $item2) { print (my $item); } } } Datum: 17.04.2007-16:31
re: aus Listen suchen	Seitenanfang
Im obigen Codebeispiel fehlt nach fast jeder Anweisung das Semikolon. Die Meldung "requires explicit package name" kommt unter Verwendung von 'strict' und teilt dir mit dass eine der Variablen noch mit 'my' oder 'our' zu deklarieren ist bevor du sie verwendest (Werte zuweist, aenderst oder ausliest). In deinen Fall greifst du auf den Inhalt von @List und @List2 zu bevor sie ueberhaupt deklariert sind, das passiert erst in den Zeilen danach mit 'my @list' und 'my @List2'. Richtig: my @List = (1, 2, 3, 4, 5); my @List2 = (1); my $item = (@List); my $item2 = (@List2); Die letzten beiden Anweisungen werden jedoch trotzdem nicht das gewuenschte Ergebnis bringen, '$item' und '$item2' werden die Anzahl der Elemente von @List bzw. @List2 enthalten. Was du moechtest ist eventuell my $item = shift @List; my $item2 = shift @List2; Hier wird das erste Elemente aus der Liste entfernt und zugewiesen. Datum: 18.04.2007-00:35