Alternative zu HTTP::DetectUserAgent (gelöst) (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl) - Perl-Community.de

Start · Board · Webprogrammierung mit Perl · Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl

2024-11-21 23:44:56
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
1 Benutzer online
7 Gäste

[thread]18687[/thread]

submit to reddit

Alternative zu HTTP::DetectUserAgent [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+19 replies
Gustl

2013-10-19 15:09
User since
2011-01-27
441 Artikel
BenutzerIn
Hallo,

ich teste meinen Besucher auf der Weseite im Moment so:
Code (perl): (dl )

1 2 3 4 5 6 7 8

require HTTP::DetectUserAgent; my $ua = HTTP::DetectUserAgent->new($HTTP_USER_AGENT); my $type = $ua->type; if($type eq "Browser"){ $browser_type = $ua->name; $browser_version = $ua->version; $search_bot = 0; }
Wenn $type ein Browser ist, ist es kein searchbot sondern ein echter Besucher. Browsertyp und Version werden auch mitgeloggt.
Eigentlich war ich bis jetzt immer zufrieden damit, aber seit heute hat das Modul HTTP::DetectUserAgent wohl mein Webspaceanbieter gelöscht.
Eine Nachfrage habe ich schon geschickt, vielleicht haben sie ja auch einen plausiblen Grund dafür.

Aber ich wollte hier einfach mal nachfragen ob es zu diesem Modul eine Alternative gibt? Oder gibt es eine bessere, leichtere Lösung herauszufinden ob der Besucher ein searchbot ist oder nicht? WIe macht ihr das?

Gruß Gustl
- +3 replies
- pq
  
  2013-10-19 15:52
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  schau mal hier: http://neilb.org/reviews/user-agent.html
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +2 replies
  - Gustl
    
    2013-10-20 14:14
    
    User since
    2011-01-27
    441 Artikel
    BenutzerIn
    
    Danke, ich habe nun auf Modul HTTP::BrowserDetect umgestellt.
    Jetzt habe ich noch unterschieden zwischen smartphone, tablet und pc.
    os habe ich auch noch mit aufgenommen.
    
    Jetzt sollte meine Besucherstatistik noch genauer und aussagekräftiger werden.
    
    Das Modul habe ich jetzt selbst in einen meiner Ordner kopiert und binde es über lib ein.
    
    Danke euch.
    
    Gruß Gustl
    
    Edit: Dieses Modul muss ich ja immer auf dem aktuellsten Stand halten, kann ich irgendeine Benachrichtigung einstellen, so dass ich eine EMail bekomme wenn es von dem Modul dann eine neuere Version bei CPAN gibt?
    Last edited: 2013-10-20 14:26:21 +0200 (CEST)
    - GwenDragon
      
      2013-10-20 14:31
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      RSS-Feed https://metacpan.org/feed/distribution/HTTP-Browse...
      
      http://noticpan.org/ (sendet Mail bei beuem Modul) ist wohl offline.
      Last edited: 2013-10-20 14:36:40 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +14 replies
- GwenDragon
  
  2013-10-19 16:18
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Dass das Modul HTTP::DetectUserAgent keine aktuellen Browser richtig erkennt, weißt du, oder?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  use strict; use warnings; use 5.010; my %ua = ( Opera_1216 => 'Opera/9.80 (Windows NT 6.1; WOW64) Presto/2.12.388 Version/12.16', Firefox_24 => 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:24.0) Gecko/20100101 Firefox/24.0', IE_10 => 'Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; Win64; x64; Trident/6.0)', Opera_18 => 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/31.0.1650.8 Safari/537.36 OPR/18.0.1284.5 (Edition Developer)' ); require HTTP::DetectUserAgent; for my $k (keys %ua) { my $ua = HTTP::DetectUserAgent->new($ua{$k}) or die; say "$k: ",$ua->type, " ",$ua->name; }
  
  Ergibt:
  Opera_1216: Browser Opera IE_10: Browser Internet Explorer Opera_18: Browser Chrome Firefox_24: Browser Firefox
  
  //EDIT: Wenn ich mir so Nei Bowers Seite ansehe, ist eine Erkennungsrate der verschiedenen Module bei max. 65% auch nicht besonders toll.
  
  Wofür brauchst du das Modul?
  
  Editiert von GwenDragon: Fehler in Zeile 15 korrigiert, Ausgabe
  Last edited: 2013-10-19 18:26:49 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - bianca
    
    2013-10-19 17:15
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Irgendwas stimmt mit den UA Strings für den IE bei dir nicht, diese hier erkennt das Modul in der Version 0.02:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9
    
    Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; .NET4.0C; BRI/2; .NET4.0E; MALC) -> Internet Explorer Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; Trident/6.0; MAAU; MAAU) -> Internet Explorer Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0) -> Internet Explorer Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; Trident/6.0; MAAU; MAAU) -> Internet Explorer Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; Trident/6.0; Avant Browser) -> Internet Explorer Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; Trident/6.0; MAAU; MAAU) -> Internet Explorer Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0; MALC) -> Internet Explorer Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0; NP06) -> Internet Explorer Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0) -> Internet Explorer
    
    Die habe ich aus einem meiner Serverlogfiles, sind also Originale.
    Aber das Modul war nie sehr zuverlässig.
    Ich wollte nur zeigen, dass es nicht grundsätzlich kaputt ist, ich nutze das nämlich selbst auch.
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - GwenDragon
      
      2013-10-19 17:33
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Nein, der UA vo meinem IE 10 ist nicht kaputt! Das ist der unter Win 7 x64 installierte IE 10.
      
      Das Modul ist nicht kaputt, es ist nur nicht praktikabel. Erkennungsrate in meinen Logfiles liegt bei 46%.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - bianca
        
        2013-10-19 17:39
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Das schaue ich mir die Tage mal genauer an.
        Welche Version des Moduls nutzt du?
        Last edited: 2013-10-19 17:41:11 +0200 (CEST)
        10 print "Hallo"
        20 goto 10
        
        GwenDragon
        
        2013-10-19 17:42
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        0.04
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - bianca
    
    2013-10-19 17:29
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Hab mal 1.910 UA Strings ausgewertet. So welche wie bei dir waren nicht dabei und das Modul hat kein einziges mal "Unknown" gemeldet.
    
    Wo hast du diese unknown Strings her? Welche Browser sind das?
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - GwenDragon
      
      2013-10-19 17:34
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Aktuelle Firefox 24 und IE 10.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - thecoder2012
        
        2013-10-20 05:09
        
        User since
        2013-02-04
        64 Artikel
        BenutzerIn
        
        2013-10-19T15:34:12 GwenDragon
        Aktuelle Firefox 24 und IE 10.
        
        Aktuell würde ich eher IE11 und Firefox 24+ (z.B. auch v25 und so) bezeichnen. Sicher noch eine Minderheit aber bei der Programmierung sollten alle aktuellen Useragents unterstützt werden. Neue Versionen werden ja lang genug per Ankündigung/Tests verbreitet.
        
        Beispiel IE11:
        Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko
        
        Ansonsten könnten zum Test auch Seiten wie http://www.user-agents.org/ bzw. http://useragentstring.com/pages/useragentstring.p... helfen und ein netter Vergleich ist unter http://neilb.org/reviews/user-agent.html zu finden.
        Last edited: 2013-10-20 05:17:30 +0200 (CEST)
        
        GwenDragon
        
        2013-10-20 12:55
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        IE 11? Oh ja, seit drei Tagen ist die Stable.
        Aber Firefox ist derzeit 24.0, Beta und Dev zählen nicht.
        
        All deine Links zu UAs sind mir hinlänglich bekannt. :)
        
        Oder hat du nicht mir geantwortet?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - bianca
    
    2013-10-19 17:32
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2013-10-19T14:18:17 GwenDragon
    Wofür brauchst du das Modul?
    
    2013-10-19T13:09:40 Gustl
    herauszufinden ob der Besucher ein searchbot ist oder nicht?
    
    10 print "Hallo"
    20 goto 10
  - +3 replies
  - GwenDragon
    
    2013-10-19 18:01
    
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Hihi, so was Dummes.
    Niemand hat bemerkt, dass ich in Zeile 15 nicht die Werte sondern die Keys verwendet habe zum Test.
    Wohl alle im Schnarchmodus.
    
    Danach gehts -- bis auf die Fehlerkennung von Opera DEV.
    Last edited: 2013-10-19 18:03:11 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - bianca
      
      2013-10-19 18:03
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Ahaaaa. Das wollte mir auch keine Ruhe lassen.
      Na ja, der Regex hätte trotzdem kaputt sein können. War noch nicht tiefer eingestiegen.
      10 print "Hallo"
      20 goto 10
    - GwenDragon
      
      2013-10-19 18:06
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Dass die neueren Opera (>=15.x) als Chrome erkannt werden ist ziemlich nervig.
      Auch HTML::ParseBrowser machts falsch.
      
      //EDIT:
      Bugreport für HTML::ParseBrowser: https://rt.cpan.org/Public/Bug/Display.html?id=896...
      Last edited: 2013-10-19 18:17:19 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - bianca
    
    2013-10-19 18:02
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Ich glaube, das liegt am kaputten Regex in der DetectUserAgent.pm in Zeile 73:
    
    my $reg = qr{(\([^()]+\))|(\S+?)/(\S+)|(\S+)};
    
    Ich trau mich aber nicht dran, weil ich nichts anderes kaputt machen will.
    
    Zumindest wird mit deinem IE String nicht die sub _check_ie{} aufgerufen, weil in Zeile 50 $block->{'_comment'} undef ist. Und die kommt aus sub _parse_block{} mit dem o.a. Regex.
    10 print "Hallo"
    20 goto 10
- bianca
  
  2013-10-19 16:59
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Du kannst das Modul einfach in deinen Webspace kopieren und mit use lib 'das verzeichnis wo es drin liegt'; einbinden.
  Das läuft.
  10 print "Hallo"
  20 goto 10

View all threads created 2013-10-19 15:09.