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
Es wäre mal interessant eine Geschwindigkeitsmessung mit einer geeigneten großen Textmengen an Strings vorzunehmen zwischen den Varianten (ich nehm jetzt mal $_ statt $rein):
a) if (m~(?:-|\+|\*|/)~) {...}
b) if (m~-~ or m~\+~ or m~\*~ or m~/~) {...}
c) if (m~[-+*/]~) {...}
d) if (m~[-]~ or m~[+]~ or m~[*]~ or m~[/]~) {...}
e) if (index($_, '-') > -1 or index($_, '+') > -1 or index($_, '*') > -1 or index($_, '/') > -1) {...}\n\n
<!--EDIT|Crian|1077186070-->
a) if (m~(?:-|\+|\*|/)~) {...}
b) if (m~-~ or m~\+~ or m~\*~ or m~/~) {...}
c) if (m~[-+*/]~) {...}
d) if (m~[-]~ or m~[+]~ or m~[*]~ or m~[/]~) {...}
e) if (index($_, '-') > -1 or index($_, '+') > -1 or index($_, '*') > -1 or index($_, '/') > -1) {...}\n\n
<!--EDIT|Crian|1077186070-->
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