Net :: Bluetooth. net :: Bluetooth הוא ממשק Bluetooth Perl.
הורד עכשיו

Net :: Bluetooth. דירוג וסיכום

Net :: Bluetooth. תגים

פרל מודול מִמְשָׁק perl בלוטות ממשק Bluetooth. Perl Bluetooth

Net :: Bluetooth. תיאור

Net :: Bluetooth הוא ממשק Bluetooth Perl. Net :: Bluetooth הוא interface.Synopsis שימוש ברשת :: Bluetooth; #### רשום את כל ההתקנים המרוחקים באזור שלי $ Facide_ref = get_remote_devices (); Foreach $ $ addr (מפתחות% $ Device_ref) {print "כתובת: $ addr name: $ Device_Ref -> {$ addr} n"; } #### חפש שירות ספציפי (0x1101) במכשיר מרוחק שלי @sdp_array = sdp_search ($ addr, 1101 "", "); #### Foreach Service Record Foreach $ REC_REF (@sdp_array) {#### הדפס את כל המידע הזמין עבור שירות Foreach $ ATT (מפתחות% $ REC_REF) {Print "תכונה: $ ATTRIVE ערך: $ att_ref -> {$ attra } n "; }} #### צור לקוח RFCOMM $ OBJ = NET :: Bluetooth-> עיתון ("RFCOMM"); למות "שגיאת שקע $!" אלא אם כן (מוגדר ($ OBJ)); אם ($ OBJ-> Connect ($ Addr, $ Port)! = 0) {למות "חיבור שגיאה: $!"; } #### יצירת filehandle לקריאה וכתיבה * שרת = $ OBJ-> Perlfh (); $ כמות = קרא (שרת, $ BUF, 256); סגור (שרת); #### צור שרת RFCOMM $ OBJ = NET :: Bluetooth-> עיתון ("RFCOMM"); #### bind ליציאה 1 אם ($ OBJ-> Bind (1)! = 0) {למות "bind error: $! } #### תקשיב עם צבר של 2 אם (2)! = 0) {למות "תקשיב שגיאה: $ n"; } #### הרשמה שירות #### $ OBJ חייב להיות שקע פתוח וחייב שלי $ service_obj = net :: Bluetooth-> Newservice ($ OBJ ', 1101 "," GPS "," מקלט GPS "); אלא אם כן (מוגדר ($ service_obj)) {#### לא ניתן לשמש שירות} #### קבל חיבור לקוח $ client_obj = $ OBJ-> קבל (); אלא אם כן (מוגדר ($ client_obj)) {למות "לקוח לקבל נכשל: $! n"; } #### קבל את פרטי הלקוח שלי ($ caddr, $ Port) = $ client_obj-> getpeername (); #### צור filehandle עבור קריאה וכתיבה * לקוח = $ client_obj-> perlfh (); הדפס לקוח "דברים"; #### סגור חיבור לקוח סגור (לקוח); #### STOP Service Service $ $ Service_obj-> StopService (); #### סגור חיבור שרת $ OBJ-> סגור (); דרישות: · פרל

Net :: Bluetooth. תוכנה קשורה