Übergib Referenzen, keine Arrays. Die sub bekommt *eine* Liste von Werten.

Dann eben Perl6::Junction, das sollte kurzschließen.

ich versuchs mal zu erklären:

wenn du eine liste übergibst, bekommst du auch eine liste in @_. dabei ist es egal, was in der liste drin steht. wenn du also einen scalar und einen array übergibst, bekommst du eine liste mit dem wert des scalars und den werten des arrays.
du solltest also eine referenz auf das array übergeben. z.b. myfunc( $scalar, \@array );. durch das \ vor der variable beinhaltet der ausdruck jetzt nicht den array, sondern eine referenz auf den array. in der sub könntest du dann folgendermassen an die werte kommen my ( $scalar, $array_referenz ) = @_;.

wie man mit referenzen und komplexeren datenstrukturen umgeht lernst du in perldoc reftut und perldoc perllol

[quote=phaylon,13.10.2005, 16:11]
.. finde ich aber dennoch hübscher. ;)[/quote]
ja, hübscher ist das schon, finde ich auch =)
ist auch noch einen tick intuitiver als first().

Hallo an alle,

ich habe ein Problem. Und zwar brauche ich eine Funktion, die mir (wie bei PHP) sagt, ob ein Wert in einem Array vorhanden ist.

Folgendes hab ich ausprobiert:



Den Aufruf wollte ich mit machen. Leider gibt es ein Problem bei der Übergabe des Skalars und des Arrays, denn ich finde keine Möglichkeit das Array innerhalb der Funktion neu zu bilden (s. @arr = @_[1]). :(

Vielen Dank schon mal im Voraus!

Danke, das hat schon mal geholfen, aber die Probleme bei der Übergabe des Arrays bestehen immer noch. :(

ähm, was phaylon meinte ist, dass die perlfunktion grep genau das macht was du willst. if ( grep /regex/, @array ) { print "jau\n" }
grep gibt im scalaren kontext (also z.B. bei if abfragen) keine liste sondern die anzahl der gefundenen elemente zurück.

[quote=phaylon,13.10.2005, 13:10]perldoc -f grep[/quote]
grep ist aber ineffizient.\n\n

<!--EDIT|pq|1129206775-->

[quote=pq,13.10.2005, 14:30][quote=phaylon,13.10.2005, 13:10]perldoc -f grep[/quote]
grep ist aber ineffizient.[/quote]
kommt drauf an, wie man effizienz definiert. da grep eine perlfunktion ist kennen es die meisten. die laufzeit die verschwendet wird ist bei den meisten programmen irrelevant, da die listen klein genug sind. sobald ich ein modul einbinde oder eine eigene funktion schreibe, büße ich automatisch wartbarkeit ein. ausserdem kann das einbinden eines moduls und exportieren von funktionen schon mehr laufzeit kosten als das greppen durch eine kleine liste.

Okay okay, dass Grep mir hilft hab ich doch schon nach phaylons erster Antwort geschrieben!

Mir geht's jetzt einfach darum, dass wenn ich zwei unterschiedliche Typen übergebe (z.B. Referenz vom Array, Skalar), dann erhalte ich in @_ in der sub folgendes Ergebnis:

$_[0] = Wert von Skalar
$_[1] = Wert[0] von Array
$_[2] = Wert[1] von Array
$_[3] = Wert[2] von Array

und nicht, wie ich es mir eigentlich vorstellen würde

$_[0] = Wert von Skalar
$_[1] = Referenz des Arrays

Ich hoffe ich hab das verständlich rübergebracht. :|

Die Sache mit dem in_array() bzw. grep ist nun erledigt, mir geht es nur darum, dass ich nicht schnalle, wie ich das übergeben soll, bzw. wie ich dann (meiner Meinung nach) vernünftig damit weiterarbeiten kann. Anscheinend ist perl bei diesen Dingen ja doch sehr anders als ich es kenne, was ja auch absolut nicht schlimm ist, ich würde nur gerne wissen wie ich in einem solchen Fall vorgehe, damit ich die einzelnen Werte wieder in ein Array kriege.\n\n

<!--EDIT|rvi|1129208979-->