| Equipamento :: Modem. dispositivo :: modem é uma extensão perl para falar com dispositivos de modem conectados via porta serial. |
Baixe Agora |
Equipamento :: Modem. Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Cosimo Streppone
- Site do editor:
- http://search.cpan.org/~dkasak/PDF-ReportWriter-1.5/lib/PDF/ReportWriter/Datasource.pm
Equipamento :: Modem. Tag
Equipamento :: Modem. Descrição
O dispositivo :: Modem é uma extensão Perl para falar com dispositivos de modem conectados via porta serial. Equipamento :: Modem é uma extensão Perl criada para conversar com dispositivos de modem conectados via porta serial.WarningThis é o software Beta, então use-o por sua conta e risco! Tenha diversão.synopsis use dispositivo :: Modem; Meu $ modem = novo dispositivo :: modem (port => '/ dev / ttys1'); if ($ modem-> Connect (Baudrate => 9600)) {Imprimir "Conectado! N"; } else {Imprimir "Desculpe, sem conexão com a porta serial! n"; } $ modem-> Atenção (); # Enviar "Atenção" Sequência (+++) ($ OK, $ Resposta) = $ modem-> Dial ('02270469012'); # Número de telefone $ OK = $ modem-> discar (3); # 1-dígito parâmetro = número de discagem armazenado na memória 3 $ modem-> echo (1); # Ativar eco local (0 para desativar) $ modem-> offlook (); # Tire o gancho (pronto para discar) $ modem-> Hangup (); # retorna a resposta modem $ modem-> is_active (); # Testa se o dispositivo de modem está ativo ou não # Até agora funciona para modem OFF / MODEM na condição $ modem-> redefinir (); # HAGUP + ATENÇÃO + Configuração de restauração 0 (Z0) $ modem-> restaurar_factory_settings (); # Manuseie com cuidado! $ modem-> restaurar_factory_settings (1); # Mesmo com perfil predefinido 1 (pode ser 0 ou 1) $ modem-> send_init_string (); # Enviar String de Inicialização # Agora, isso é fixado para 'em H0 z s7 = 45 s0 = 0 q0 v1 e0 c0 x4' # obter / definir valor de s1 registrar meu $ S1 = $ modem-> s_register (1); meu $ S1 = $ modem-> s_register (1, 55); # Não faça isso se você definitivamente não sabe! # Obter status de sinais gerenciados (CTS, DSR, RLSD, RING) Meu% Sinal = $ modem-> status (); if ($ SIGNY {DSR}) {Imprimir "Conjunto de dados pronto sinal ativo! n"; } # Armazena este número no modem memória número 3 $ modem-> armazenamento_number (3, '01005552817'); $ modem-> Repete (); # Repete o último comando $ modem-> verbose (1); # Respostas de texto normais (0 = códigos numéricos) # alguns raw no comandos $ modem-> ATSEND ('ath0'); Imprimir $ modem-> Resposta (); $ modem-> ATSEND ('ATDT01234567'. Equipamento :: Modem :: CR); Imprimir $ Modem-> Resposta (); Dispositivo :: Modem Classe Implementa Basic em (Hayes) Abstração de dispositivo compatível. Pode ser herdado por sub classes (como dispositivo :: GSM), que são baseados em conexões seriais.Requirements: · Perl · Dispositivo :: Serialport Requisitos: · Perl. · Dispositivo :: Serialport
Equipamento :: Modem. Software Relacionado