Frédéric: is element in den zwei listen?

Hi,
Diese Frage wurde sicher scho mal gestellt, aber ich habe nichts gefunden...

Gibt es eine möglichkeit, um herauszufinden, ob ein element in beiden listen ist ohne zwei schleifen zu benützen? Oder ist es mit den schleifen am schnellsten?

  1. Gibt es eine möglichkeit, um herauszufinden, ob ein element in beiden listen ist ohne zwei schleifen zu benützen? Oder ist es mit den schleifen am schnellsten?

    perldoc -q "certain element"

    Vielleicht solltest du einen Hash statt eines Arrays verwenden...

  2. Hi,

    Diese Frage wurde sicher scho mal gestellt, aber ich habe nichts gefunden...

    Gibt es eine möglichkeit, um herauszufinden, ob ein element in beiden listen ist ohne zwei schleifen zu benützen? Oder ist es mit den schleifen am schnellsten?

    ich mach das ggf. mit grep:

    $x = 'rol';
    @a = qw(erwin otto rolf ulla);

    $x als ganzes Wort

    if( $i = grep{/\b$x\b/}@a ){ print "$x ist in Liste\n" }

    $x als Teilwort

    if( $i = grep{/$x/}@a ){ print "$x ist in Liste\n" }

    Gross~ Kleinschreibung egal

    if( $i = grep{/$x/i}@a ){ print "$x ist in Liste\n" }

    Ob eine Schleife schneller ist!? Keine Ahnung. Auf jeden Fall ist das da oben schneller getippt ;-)

    Rolf

    1. Gibt es eine möglichkeit, um herauszufinden, ob ein element in beiden listen ist ohne zwei schleifen zu benützen? Oder ist es mit den schleifen am schnellsten?

      ich mach das ggf. mit grep:

      Vielleicht liesst du perldoc -q "certain element" auch mal.

      Please do not use

      ($is_there) = grep $_ eq $whatever, @array;

      or worse yet

      ($is_there) = grep /$whatever/, @array;

      1. Gibt es eine möglichkeit, um herauszufinden, ob ein element in beiden listen ist ohne zwei schleifen zu benützen? Oder ist es mit den schleifen am schnellsten?

        ich mach das ggf. mit grep:

        Vielleicht liesst du perldoc -q "certain element" auch mal.

        Please do not use

        ($is_there) = grep $_ eq $whatever, @array;

        or worse yet

        ($is_there) = grep /$whatever/, @array;

        guten morgen,

        http://i-netlab.de/ ist eine Site die nicht mit Starken Worten hantiert sondern erklärt.

        Schönen Tag, Rolf