장치 :: 모뎀 Device :: Modem은 직렬 포트를 통해 연결된 모뎀 장치와 대화하는 Perl 확장자입니다.
지금 다운로드

장치 :: 모뎀 순위 및 요약

장치 :: 모뎀 태그

모뎀 연속물 Perl 확장자 직렬 포트 모뎀 장치

장치 :: 모뎀 설명

Device :: Modem은 직렬 포트를 통해 연결된 모뎀 장치와 대화하는 Perl 확장자입니다. Device :: Modem은 직렬 포트를 통해 연결된 모뎀 장치와 상담하기 위해 생성 된 Perl 확장자입니다 .WarningThis는 베타 소프트웨어이므로 자신의 위험에 따라 사용하지 않아도됩니다. 재미있게 보내십시오. 식 노프가 장치 :: 모뎀을 사용합니다. MY $ MODEM = 새 장치 :: 모뎀 (port => / dev / ttys1 '); if ($ modem-> connect (baudrate => 9600)) {print "연결됨! n"; } else {print "죄송합니다, 직렬 포트와의 연결 없음! n"; } $ modem->주의 (); #`주의 '시퀀스 (+++) ($ ok, $ 답변) = $ modem-> 다이얼 ('02270469012 '); # 전화 번호 $ ok = $ 모뎀 -> 다이얼 (3); # 1 자리 매개 변수 = 메모리에 저장된 다이얼 번호 3 $ 모뎀 -> 에코 (1); # 로컬 에코 활성화 (0 to disable) $ modem-> offhook (); # 훅 (다이얼 준비) $ 모뎀 -> hangup (); # 순환 모뎀 응답 $ modem-> is_active (); # 모뎀 장치가 활성화되었는지 여부를 테스트하거나 지금까지는 조건 $ modem-> reset ()에 대한 모뎀 꺼짐 / 모뎀에서 작동합니다. # 전화 걸기 +주의 + 복원 설정 0 (z0) $ 모뎀 -> restore_factory_settings (); # 조심히 다루세요! $ modem-> restore_factory_settings (1); # 사전 설정 프로필 1 (0 또는 1 일 수 있음) $ modem-> send_init_string (); # 초기화 문자열 보내기 # 이제는 'H0 Z에서 수정 된'H0 Z S7 = 45 S0 = 0 Q0 v1 e0 C0 x4 '# S1의 값 / 설정 값 내 $ S1 = $ 모뎀 -> S_Register (1); MY $ S1 = $ 모뎀 -> S_REGISTER (1, 55); # 당신이 확실히 모르면 그렇게하지 마십시오! # 관리되는 신호의 상태 (CTS, DSR, RLSD, 벨소리) 내 % signal = $ modem-> status (); if ($ signal {dsr}) {print "데이터 세트 준비 신호 활성! n"; } # 모뎀 메모리 번호 3 $ modem-> store_number (3, '01005552817') 에이 숫자를 저장합니다. $ 모뎀 -> 반복 (); # 마지막 명령 $ modem-> verbose (1); # 정상적인 텍스트 응답 (0 = 숫자 코드) # 일부 RAW AT 명령 $ 모뎀 -> ATSEND ( 'ATH0'); $ 모뎀 인쇄 -> 답변 (); $ modem-> atsend ( 'atdt01234567'. 장치 :: 모뎀 :: CR); $ 모뎀 인쇄 -> 답변 (); 장치 :: 모뎀 클래스는 기본 AT (Hayes) 호환 장치 추상화를 구현합니다. Serial Connections.Requirements를 기반으로하는 Sub 클래스 (장치 :: GSM)로 상속받을 수 있습니다. · Perl · 장치 :: SerialPort 요구 사항 : · Perl. · 장치 :: SerialPort.

장치 :: 모뎀 관련 소프트웨어