Thread Verschachtelte Bedingungen bzw. ODER-Abfrage mit mehr als 2 Optionen (8 answers)
Opened by tibowski at 2015-07-16 17:26

Muffi
 2015-07-21 11:27
#181639 #181639
User since
2012-07-18
1465 Artikel
BenutzerIn
[default_avatar]
Wenn man eh am selber Basteln ist kann man auch eine Set-Variable baun

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10

use SetObject;

my $string = 'Cos';

if ($string eq Set('Trig', 'Cos', 'Sin')) {
        say 'JA';
}
else {
        say 'NEIN';
}



Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

package SetObject;

use overload 'eq' => \&str_compare, '==' => \&num_compare, fallback => 1;

use base 'Exporter';
@EXPORT = 'Set';

sub Set {
        return bless [ @_ ], __PACKAGE__;
}

sub str_compare {
        my ($self, $other, $swap) = @_;

        for my $val (@$self) {
                return 1 if $val eq $other;
        }
        return 0;
}

sub num_compare {
        my ($self, $other, $swap) = @_;

        for my $val (@$self) {
                return 1 if $val == $other;
        }
        return 0;
}

1;
1 + 1 = 10

View full thread Verschachtelte Bedingungen bzw. ODER-Abfrage mit mehr als 2 Optionen