| Dispositivo :: módem Dispositivo :: Modem es una extensión Perl para hablar con dispositivos de módem conectados a través del puerto serie. |
Descargar ahora |
Dispositivo :: módem Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Cosimo Streppone
- Sitio web del editor:
- http://search.cpan.org/~dkasak/PDF-ReportWriter-1.5/lib/PDF/ReportWriter/Datasource.pm
Dispositivo :: módem Etiquetas
Dispositivo :: módem Descripción
Dispositivo :: Modem es una extensión Perl para hablar con dispositivos de módem conectados a través del puerto serie. Dispositivo :: Módem es una extensión de Perl creada para hablar con dispositivos de módem conectados a través de Port.WarningEstEstEstHis es un software Beta, ¡así que úselo a su propio riesgo, ¡y sin ninguna garantía! Tener diversión.synopsis uso dispositivo :: módem; My $ MODEM = Nuevo dispositivo :: Modem (Puerto => '/ dev / ttys1'); Si ($ MODEM-> Conecte (baudrate => 9600)) {impresión "conectada! n"; } else {imprimir "lo siento, sin conexión con puerto serie! n"; } $ MODEM-> ATENCIÓN (); # Enviar 'atención' secuencia (+++) ($ OK, $ Respuesta) = $ Modem-> Marque ('02270469012'); # Número de teléfono de marcación $ OK = $ MODEM-> Marque (3); Parámetro # 1-dígito = número de marcación almacenado en la memoria 3 $ MODEM-> ECHO (1); # habilitar el eco local (0 deshabilitar) $ módem-> Offhook (); # Quitarse el gancho (listo para marcar) $ Modem-> Hangup (); # devuelve el módem Respuesta $ Modem-> is_active (); # Prueba si el dispositivo Modem está activo o no # hasta ahora funciona para Modem OFF / MODEM en la condición $ Modem-> Restablecer (); # Hangup + Atención + Configuración de restauración 0 (Z0) $ MODEM-> restaure_factory_settings (); # Manejar con cuidado! $ módem-> restaure_factory_settings (1); # Mismo con perfil preestablecido 1 (puede ser 0 o 1) $ módem-> send_init_string (); # Enviar cadena de inicialización # Ahora, esto se fija a 'en H0 Z S7 = 45 S0 = 0 Q0 V1 E0 C0 X4' # GET / SET DE SETUD DE S1 Registre My $ S1 = $ MODEM-> S_REREISTER (1); My $ S1 = $ MODEM-> S_REGISTER (1, 55); # ¡No hagas eso si definitivamente no lo sabes! # Obtenga el estado de las señales administradas (CTS, DSR, RLSD, RING) MY% SEALL = $ MODEM-> Estado (); Si ($ Signal {DSR}) {impresión "Conjunto de datos FIJO LISTO SEÑAL ACTIVO! N"; } # Almacena este número en Modem Memory Number 3 $ Modem-> Store_Number (3, '01005552817'); $ módem-> repetir (); # Repetir el último comando $ módem-> verboso (1); # Respuestas de texto normales (0 = códigos numéricos) # algunos crudos en los comandos $ módem-> Atsend ('ATH0'); Imprimir $ Modem-> Respuesta (); $ MODEM-> ATSEND ('ATDT01234567'. Dispositivo :: Modem :: CR); Imprimir $ Modem-> Respuesta (); Dispositivo :: Clase de módem Implementa Basic en (Hayes) Dispositivo compatible Abstracción. Puede ser heredado por sub Clases (como dispositivo :: GSM), que se basan en conexiones en serie. Requisitos: · Perl · Dispositivo :: Serialport Requisitos: · Perl · Dispositivo :: Serialport
Dispositivo :: módem Software relacionado