use Mosche;
Ich fasse definitiv nichts "intelligent" zusammen (wie der Webalizer
...), ich nehme nur einige Strings heraus, welche m. E. zur Erkennung
der Art des Browsers nichts Wesentliches betragen (so Sachen wie [de]).
Das müßte ich viel aggressiver tun, um den ganzen Müll so viel besser zusammenzufassen, daß diese Tabelle etwas taugt.
Ich kann ja mal den bisherigen Code posten - vielleicht hat ja jemand
Verbesserungsvorschläge (auch für den Programmierstil, gerne ;-) ...
bisher ist das alles nicht wirklich toll, finde ich selbst.
(Diese UserAgent-Tabelle sollte eigentlich eher rausfliegen ...)
bis auf dieses bißchen ist eigentlich alles OK, nur hier gefällts _mir_ nicht so.
delete ($middle_parts {'compatible'});
delete ($middle_parts {'compat'});
compatible und compat könnte man in einer Regex unter compat zusammenfassen (s.u.)
delete ($middle_parts {'de-DE'});
Konqueror sendet oft auch de-DE@euro, was du so nicht rausfilterst - deswegen in die Regex
foreach my $this_key (keys %middle_parts)
{ if ($this_key =~ /^X11/) { delete $middle_parts {$this_key}; } }
foreach my $this_key (keys %middle_parts)
{ if ($this_key =~ /^Win/) { delete $middle_parts {$this_key}; } }
foreach my $this_key (keys %middle_parts)
{ if ($this_key =~ /^QX/i) { delete $middle_parts {$this_key}; } }
Diese Lösung ist eher suboptimal, besser wäre alles in nur eine Schleife zu packen.
foreach my $this_key (keys %middle_parts) {
delete $middle_parts {$this_key} if grep { $this_key =~ /^$_/i } qw(X11 Win QX de-DE compat);
}
Das wars eigentlich.
use Tschoe qw(Matti);