Mobiel: `Useragent Mobile :: UserAgent is een Mobile User Agent String Parsing Class.
Download nu

Mobiel: `Useragent Rangschikking & Samenvatting

Mobiel: `Useragent Tags

gebruiker Perl-module mobiel Mobiele gebruikersagent snaar parsig klasse

Mobiel: `Useragent Beschrijving

Mobile: `USERAAGENT IS EEN MOBIELE User Agent String Parsing Class. Mobile: `UserAgent is een mobiele gebruikersagent string parsing class.synopsis ### Print de informatie die is geparseerd op een reeks van gebruikersagent: gebruik Mobile :: UserAgent; Mijn $ UserAgent = 'Nokia6600 / 1.0 (4.09.1) Symbianos / 7.0s Series60 / 2.0 Profiel / MIDP-2.0 Configuratie / CLDC-1.0'; Mijn $ UABJ = NIEUWE MOBIEL :: Useragent ($ UserAgent); if ($ uaobj-> succes ()) {print 'leverancier:'. $ UAOBJ-> Verkoper (). "N"; Print 'Model:'. $ UAOBJ-> MODEL (). "N"; Print'-versie: '. $ UAOBJ-> versie (). "N"; Print 'Series60:'. $ Uaobj-> Isseuries60 (). "N"; Print 'Imode?:'. $ UAOBJ-> Isimode (). "N"; Print 'Mozilla?:'. $ uaobj-> ismozilla (). "N"; Print 'Standard?:'. $ UAOBJ-> iStandard (). "N"; Print 'RUBBISH?:'. $ uaobj-> isrubbish (). "N"; } anders {print "Geen mobiele gebruikersagent: $ UserAGentn"; } ### Bepaal of de client een mobiel apparaat is. Gebruik Mobile :: UserAgent (); gebruik CGI (); # Controleer 1: (Controleer of het een profiel-URL van een gebruikersagent verzendt in zijn kopteksten) Foreachy My $ NAAM ('X_WAP_PROFILE', 'PROFIEL', '13_PROFILE', '56_PROFILE') {IF (Exist ($ Env {"http_ $ NAAM "})) {Print" -client heeft een profielkop van de gebruikersagent, dus het is waarschijnlijk een mobiel apparaat.n "; laatst; }} # Check 2: (Controleer of deze WML ondersteunt): Mijn $ Q = Nieuwe CGI (); if ($ q-> accepteren ('tekst / vnd.wap.wml') == 1) {print "-client ondersteunt WML, dus het is waarschijnlijk een mobiel apparaat.nl"; } # CONTROLE 3: (Controleer of deze klasse het kan parseren) MY $ UAOBJ = NIEUWE MOBIEL :: UserAgent (); Als ($ UABJ-> SUCCESS ()) {PRINT "CLANT's User-agent kan worden geparseerd, dus het is een mobiel apparaat.n"; } PARSES PARSES EEN MOBIELE User Agent String in zijn elementaire bestanddelen, de belangrijkste leverancier en model. Een reden om dit te doen zou zijn om deze informatie te gebruiken voor het opzoeken van leverancier-modelspecifieke apparaatkenmerken in een database. U kunt ook gebruiken Gebruikersprofielen gebruiken om dit te doen (waarvoor ik andere klassen heb ontwikkeld), maar niet alle mobiele telefoons hebben deze, met name de oudere typen. Een andere reden zou zijn om te detecteren of de bezoekende client een mobiele handset is. Alleen echte mobiele gebruikersagent-snaren kunnen met deze klas succesvol worden geparseerd. De meeste WAP-emulators worden niet ondersteund omdat ze meestal niet dezelfde gebruikers-agentsnaren gebruiken als de apparaten die ze emuleren. Vereisten: · Perl

Mobiel: `Useragent Gerelateerde software