Verschachtelte Bedingungen bzw. ODER-Abfrage mit mehr als 2 Optionen - #181618 (Allgemeines zu Perl)

hlubenow

2015-07-18 17:48

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

2015-07-16T15:26:12 tibowski
Hi, kann man in perl sowas realisieren?
Code (perl): (dl )
1
2
3
4
if ($string eq ('Trig' || 'Cos' || 'Sin'))
{
 # dann mach was
}

Da Python dafür eine praktische Syntax bietet:

Code (python): (dl )

1
2

if mystring in ('Trig', 'Cos', 'Sin'):
     # dann mach was

wollte ich das auch in Perl haben. Ist relativ einfach mit einer kleinen Funktion:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

sub isin {
    my $a = pop;
    for (@_) {
        if ($_ eq $a) {
            return 1;
        }
    }
    return 0;
}

my $string = "Trig";
if(isin(('Trig', 'Cos', 'Sin'), $string)) {
    print "Is in.\n";
}