Opened by jan999 at 2010-01-13 19:13
User since
2006-03-29
1520 Artikel
BenutzerIn
2006-03-29
1520 Artikel
BenutzerIn
Ich würde es so Lösen.
Ein unterschied existiert aber noch. Ich mache explizit "eq" anstatt ein Regex match. Zumindest kommt es mir auch vor das man mit $search literalen Text suchen möchte und das dort keine regex angegeben werden soll.
Ansonsten wenn wirklich eine Regex an der Funktion übergeben werden darf, und man möchte die suche auf die einzelnen Felder durch Semikolion getrennt matchen. Dann würde die Notlösung mit Semikolions um die variablen zu machen sowieso falsch sein und man müste dort erst recht splitten.
Möchte man eine Regex haben die auf die einzelnen getrennten Felder matchen könnte man es so schreiben.
Code (perl): (dl
)
1 2 3 4
sub search { my ( $str, $search ) = @_; return grep { $_ eq $search } split /;/, $str; }
Ein unterschied existiert aber noch. Ich mache explizit "eq" anstatt ein Regex match. Zumindest kommt es mir auch vor das man mit $search literalen Text suchen möchte und das dort keine regex angegeben werden soll.
Ansonsten wenn wirklich eine Regex an der Funktion übergeben werden darf, und man möchte die suche auf die einzelnen Felder durch Semikolion getrennt matchen. Dann würde die Notlösung mit Semikolions um die variablen zu machen sowieso falsch sein und man müste dort erst recht splitten.
Möchte man eine Regex haben die auf die einzelnen getrennten Felder matchen könnte man es so schreiben.
Code (perl): (dl
)
1 2 3 4
sub search { my ( $str, $search ) = @_; return grep $search, split(/;/, $str); }
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de