Varianten eines Vergleichs parametrisierbar machen: Naja, zumindestens ist mir kein besserer - #81362 (Allgemeines zu Perl)

coax

2004-03-30 09:15

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

Da gibt es gleich mehrere Moeglichkeiten (TIMTOWTDI), zwei davon:

Code: (dl )

my $sortby = 9;

my @revsort_colids = (0..4, 9, 18);

my $revsort = 'no';
foreach my $colid (@revsort_colids) {
    if ($sortby == $colid) { $revsort = 'yes'; last; }
}
print "$revsort\n";

oder

Code: (dl )

my $sortby = 3;

my @revsort_colids = (0..4, 9, 18);

my $revsort = (grep { $sortby == $_ } (@revsort_colids)) ? 'yes' : 'no';

print "$revsort\n";

Bei der ersten Variante ist es offensichtlicher was passiert, wuerde ich der zweiten vorziehen!

Grusz Christian.

,,Das perlt aber heute wieder...'' -- Dittsche