Thread Ersatz fuer "IN"?: Pascal:if (i in (LISTE)then PERL? (8 answers)
Opened by mohk at 2004-01-29 14:10

eisbeer
 2004-01-29 14:40
#79646 #79646
User since
2003-08-29
347 Artikel
BenutzerIn
[Homepage] [default_avatar]
Vielleicht ne exotische Variante:
Code: (dl )
1
2
3
4
5
6
7
$delm  = ';;';
@array = ('val1','val2','IchTanzeAusDerReihe','val4','val5');
$such  = 'IchTanzeAusDerReihe';

unless (index( $delm.join($delm,@array).$delm, $delm.$such.$delm ) == -1 ) {
  print "Gefunden ... !";
}


Code: (dl )
1
2
3
Benchmark: timing 1000000 iterations of grep, index...
    grep: 11 wallclock secs (10.22 usr +  0.00 sys = 10.22 CPU) @ 97895.25/s (n=1000000)
    index:  2 wallclock secs ( 2.28 usr +  0.00 sys =  2.28 CPU) @ 438020.15/s (n=1000000)
\n\n

<!--EDIT|eisbeer|1075380237-->
Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...

View full thread Ersatz fuer "IN"?: Pascal:if (i in (LISTE)then PERL?