ThomasP: BrowserStatistik Wo ist Mozilla 5?

Beitrag lesen

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