Hallo Stefan!
Auf die Gefahr hin, dass ich wie gestern etwas Unsinn schreibe ;-)
Ich habe in meinen bescheidenen Perl-Kenntnissen und in der Doku gekramt und bin auf folgendes gekommen:
$User = $ENV{'HTTP_USER_AGENT'};
if($User =~ /Mozilla/3.0 (.*/) { $NS30++; }
elsif($User =~ /Mozilla/3.0.*[/) { $NS30++; }
elsif($User =~ /Mozilla/4.0.*[/) { $NS40++; }
elsif($User =~ /Mozilla/4.5.*[/) { $NS45++; }
elsif($User =~ /Mozilla/4.6.*[/) { $NS46++; }
elsif($User =~ /Mozilla/5.0.*[/) { $NS50++; }
elsif($User =~ /Mozilla/2.0.*MSIE 3/) { $IE30++; }
elsif($User =~ /Mozilla/4.0.*MSIE 4/) { $IE40++; }
elsif($User =~ /Mozilla/4.0.*MSIE 5/) { $IE50++; }
elsif($User =~ /Opera/) { $OP++; }
else {$OTHER++; }
if($User =~ /Windows 95/) { $Win95++; }
elsif($User =~ /Win 95/) { $Win95++; }
elsif($User =~ /Win95/) { $Win95++; }
elsif($User =~ /Windows95/) { $Win95++; }
elsif($User =~ /Windows 98/) { $Win98++; }
elsif($User =~ /Windows98/) { $Win98++; }
elsif($User =~ /Win 98/) { $Win98++; }
elsif($User =~ /Win98/) { $Win98++; }
elsif($User =~ /Windows NT/) { $WinNT++; }
elsif($User =~ /WindowsNT/) { $WinNT++; }
elsif($User =~ /Win NT/) { $WinNT++; }
elsif($User =~ /WinNT/) { $WinNT++; }
elsif($User =~ /Windows3.1/) { $Win31++; }
elsif($User =~ /Windows 3.1/) { $Win31++; }
elsif($User =~ /Win16/) { $Win31++; }
elsif($User =~ /Macintosh/) { $Mac++; }
elsif($User =~ /Linux/) { $Linux++; }
elsif($User =~ /Sun/) { $Sun++; }
elsif($User =~ /Amiga/) { $Amiga++; }
else { $UNKNOWN_OS++; }
Ist es nicht besser, durch elsif mehrfachabfragen zu unterbinden (schneller)?
Gruß
Thomas
dermomentanvollimvorweihnachtsstressstehendeweilnocheinprogrammundeinedatenbakfertigschreibenmuessende