Móvil :: UserAgent MÓVIL :: UserAment es una clase de análisis de cadenas de agentes de usuarios móviles.
Descargar ahora

Móvil :: UserAgent Clasificación y resumen

Móvil :: UserAgent Etiquetas

usuario Módulo perl móvil Agente de usuario móvil Clase de String Parsig

Móvil :: UserAgent Descripción

Móvil :: agente de usuario es una clase de análisis de cadena de agente de usuario móvil. Móvil :: agente de usuario es una cadena de agente de usuario móvil análisis class.synopsis ### Imprimir la información analizada desde una cadena de agente de usuario: Uso móvil :: agente de usuario; mi agente de usuario $ = 'Nokia6600 / 1.0 (4.09.1) SymbianOS / 7.0s Serie 60 / 2.0 Perfil / MIDP-2.0 Configuración / CLDC-1.0'; mi uaobj $ = nuevo móvil :: agente de usuario ($ de referencia); if ($ uaobj-> éxito ()) {print 'Proveedor:'. $ Uaobj-> proveedor (). "norte"; imprimir 'Modelo:'. $ Uaobj-> modelo (). "norte"; versión impresa: ' . $ Uaobj-> Versión (). "norte"; imprimir 'Serie 60:'. $ Uaobj-> isSeries60 (). "norte"; imprimir 'Imode ?:'. $ Uaobj-> Isimode (). "norte"; imprimir 'Mozilla ?:'. $ Uaobj-> isMozilla (). "norte"; imprimir 'Estándar ?:'. $ Uaobj-> isStandard (). "norte"; imprimir 'basura ?:'. $ Uaobj-> isRubbish (). "norte"; } Else {print "No es un móvil de agente de usuario: $ useragentn"; } ### Determinar si el cliente es un dispositivo móvil. El uso móvil :: agente de usuario (); utilizar CGI (); # Comprobación 1: (comprobación de si se envía una URL del perfil de agente de usuario en ella de cabeceras) foreach mi $ nombre ( 'X_WAP_PROFILE', 'Perfil', '13_PROFILE', '56_PROFILE') {if (existe ($ ENV { "HTTP_ $ nombre "})) {print 'Cliente tiene una cabecera de perfil de agente de usuario, por lo que es probablemente una device.n móvil'; ultimo; }} # Comprobación 2: (cheque si es compatible con WML): my $ q = new CGI (); if ($ q-> Aceptar ( 'text / vnd.wap.wml') == 1) {print "apoyos de clientes WML lo que es probablemente una device.n móvil"; } # Comprobación 3: (verificación si esta clase puede analizarlo) mi uaobj $ = nuevo móvil :: agente de usuario (); if ($ uaobj-> éxito ()) {print "agente de usuario del cliente se ha podido analizar, así que es una device.n móvil"; } Analiza una cadena de agente de usuario móvil en sus partes constituyentes básicos, el proveedor más importante y ser model.One razón para hacer esto sería utilizar esta información para buscar características específicas del dispositivo de proveedor-modelo en una base de datos. Se puede utilizar también utilizar los perfiles de agente de usuario para hacer esto (por la que he desarrollado otras clases), pero no todos los teléfonos móviles tienen estos, especialmente los tipos más antiguos. Otra razón sería para detectar si el cliente visita es un móvil cadenas de agente de usuario móviles reales handset.Only se pueden analizar con éxito por esta clase. La mayoría de los emuladores WAP no son compatibles, ya que por lo general no utilizan las mismas cadenas de agente de usuario como los dispositivos que emulan. Requisitos: · Perl

Móvil :: UserAgent Software relacionado