nicht angemeldet
Nabend,
ich hab da ein problem mit dem such/ersetz muster bzw. was passiert wenn durch das ersetzten
plötzlich nix mehr übrig bleibt,was nicht sein soll :-) ?
Als variable geht das ja üblicherweise so:
my $agent_now = $ENV{'HTTP_USER_AGENT'}||'666777';#ein default wert falls kein agent
$agent_now =~ s/[^1-6]|4//g; #alle Buchstaben raus plus zahlen 0,4,7,8,9
so nachdem alle buchstaben draussen sind könnte es ja sein dass da nichts mehr davon übrig ist,
einen default wert wie z.B. so
$agent_now =~ s/[^1-6]|4//g||'555';
ist nicht möglich.Welche möglichkeit gibts da noch?
Dazu wollte ich noch fragen,ob perl mit dieser abfrage die last des servers stark beeinträchtigt und wenn ja welche einfachere methode würde es geben?
Ich möchte nur die zahlen des user-agenten rausfiltern ausser gewisse zahlen,da sonst die länge zu gross wird z.T. bei gewissen agenten wie z.B. bei netscape users.
Gruss
Alain