| מכשיר :: מודם התקן :: מודם הוא תוסף Perl כדי לדבר עם התקנים מודם המחוברים באמצעות יציאה טורית. |
הורד עכשיו |
מכשיר :: מודם דירוג וסיכום
- רישיון:
- Perl Artistic License
- שם המפרסם:
- Cosimo Streppone
- אתר האינטרנט של המוציא לאור:
- http://search.cpan.org/~dkasak/PDF-ReportWriter-1.5/lib/PDF/ReportWriter/Datasource.pm
מכשיר :: מודם תגים
מכשיר :: מודם תיאור
התקן :: מודם הוא תוסף Perl כדי לדבר עם התקנים מודם המחוברים באמצעות יציאה טורית. התקן :: מודם הוא תוסף Perl שנוצר כדי לדבר עם מודם התקנים המחוברים באמצעות Port.warningThis סדרתי, כך להשתמש בו על הסיכון שלך, וללא כל אחריות! יש fun.synopsis להשתמש במכשיר :: מודם; המודם שלי $ = מכשיר חדש :: מודם (פורט => '/ dev / ttys1'); אם ($ מודם-> התחבר (baudrate => 9600)) {הדפס "מחובר!"; } אחר {הדפס "מצטערים, ללא קשר עם יציאה טורית! } $ מודם-> תשומת לב (); # שלח 'רצף תשומת לב (+ + +) ($ OK, $ תשובה) = $ מודם-> חיוג (' 02270469012 '); # חיוג מספר טלפון $ OK = $ מודם-> חיוג (3); # 1 ספרות פרמטר = מספר חיוג המאוחסן בזיכרון 3 $ מודם-> הד (1); # הפעל הד המקומי (0 כדי להשבית) $ מודם-> Offhook (); # להמריא הוק (מוכן לחיוג) $ מודם-> Hangup (); # מחזירה מודם תשובה $ מודם-> is_active (); # בדיקות אם התקן מודם פעיל או לא # עד כה זה עובד עבור מודם כבוי / מודם בתנאי $ מודם-> איפוס (); # Hangup + תשומת לב + שחזור הגדרת 0 (Z0) $ מודם-> Restore_Factory_Settings (); # ידית עם טיפול! $ מודם-> Restore_factory_Settings (1); # אותו עם פרופיל קבוע מראש 1 (יכול להיות 0 או 1) $ מודם-> send_init_string (); # שלח אתחול מחרוזת # עכשיו זה קבוע "ב h0 z s7 = 45 s0 = 0 Q0 V1 E0 C0 x4" # קבל / להגדיר ערך של S1 הרשמה שלי $ S1 = $ מודם-> s_register (1); $ S1 = $ מודם-> s_register (1, 55); # אל תעשה את זה אם אתה בהחלט לא יודע! # קבל סטטוס של אותות מנוהלים (CTS, DSR, RLSD, RING) האות שלי = $ מודם-> מצב (); אם ($ אות {dsr}) {print "נתונים הגדר אות מוכן! N"; } # מאחסן מספר זה במספר זיכרון מודם 3 $ מודם-> store_number (3, '01005552817'); $ מודם-> חזור (); # חזור על פקודה האחרונה $ מודם-> verbose (1); # תגובות טקסט רגילות (0 = קודים מספריים) # כמה גלם בפקודות דולר -> Atsend ('AT0'); הדפס $ מודם-> תשובה (); $ מודם-> Atsend ('ATDT01234567'. מכשיר :: מודם :: CR); הדפס $ $ -> תשובה (); התקן :: מחלקת מודם מיישמת מכשיר תואם (HAYES). זה יכול להיות בירושה על ידי שיעורי משנה (כמכשיר :: GSM), אשר מבוססים על קשרים סידוריים.המחשבה: · Perl · התקן :: דרישות Serialport: · פרל · מכשיר :: Serialport
מכשיר :: מודם תוכנה קשורה