Opened by ppm1 at 2004-02-16 23:16
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
[quote=ppm1,18.02.2004, 16:01]
$rein =~ m/[+-*/]/
Was meinst du mit 4 Indexaufrufen?[/quote]
1) - in Zeichenklassen haben Sonderbedeutung (wie ich schon erwähnte), deshalb nach vorn oder nach hinten:
if ($rein =~ m~[-+*/]~) {...}
2) 4 x index auf die 4 Zeichen dürfte wohl schneller sein. Aber wie gesagt, sowas würd ich nur dann Ändern, wenn es erwiesenermaßen ein Nadelöhr ist.
Damit meine ich:
\n\n
<!--EDIT|Crian|1077185586-->
$rein =~ m/[+-*/]/
Was meinst du mit 4 Indexaufrufen?[/quote]
1) - in Zeichenklassen haben Sonderbedeutung (wie ich schon erwähnte), deshalb nach vorn oder nach hinten:
if ($rein =~ m~[-+*/]~) {...}
2) 4 x index auf die 4 Zeichen dürfte wohl schneller sein. Aber wie gesagt, sowas würd ich nur dann Ändern, wenn es erwiesenermaßen ein Nadelöhr ist.
Damit meine ich:
Code: (dl
)
if (index($rein, '+') > -1 or index($rein, '-') > -1 or index($rein, '*') > -1 or index($rein, '/') > -1) {...}<!--EDIT|Crian|1077185586-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite