نت :: Bluetooth. NET :: Bluetooth هي واجهة Bluetooth Perl.
التحميل الان

نت :: Bluetooth. الترتيب والملخص

نت :: Bluetooth. العلامات

الوحدة النمطية بيرل واجهه المستخدم بيرل بلوتوث واجهة بلوتوث بيرل بلوتوث

نت :: Bluetooth. وصف

NET :: Bluetooth هي واجهة Perl Bluetooth. Net :: Bluetooth هي واجهة Bluetooth Perl.Synopsis استخدم Net :: Bluetooth؛ #### تدرج جميع الأجهزة البعيدة في المنطقة بلدي device_ref = get_remote_devices ()؛ foreach $ addr (keys $ device_ref) {print "العنوان: $ addr name: $ device_ref -> {$ addr} n"؛ } #### البحث عن خدمة محددة (0x1101) على جهاز بعيد My SDP_Array = SDP_Search ($ addr، "1101"، ")؛ #### سجلت خدمة السجل Foreach $ Rec_ref (@ @ @ @ #### طباعة جميع المعلومات المتاحة للخدمة من أجل الخدمة $ (مفاتيح $ REC_REF) {Print "السمة: $ القيمة: $ rec_ref -> {$ }ن"؛ }} #### إنشاء عميل RFCOMM $ obj = Net :: Bluetooth-> News ("RFCOMM")؛ يموت "خطأ مأخذ من $! N" ما لم يكن (محدد ($ OBJ))؛ إذا كان ($ obj-> connect ($ addr، $ port)! = 0) {die "connect خطأ: $! n"؛ } #### إنشاء ملف perl filehandle للقراءة والكتابة * الخادم = $ obj-> perlfh ()؛ $ $ = قراءة (الخادم، $ buf، 256)؛ إغلاق (الخادم)؛ #### إنشاء خادم RFCOMM $ OBJ = NET :: Bluetooth-> News (RFCOMM ")؛ #### ربط المنفذ 1 إذا ($ obj-> bind (1)! = 0) {die 'خطأ الربط: $! n "؛ } #### الاستماع مع تراكم من 2 إذا ($ Obj-> الاستماع (2)! = 0) {DIEN "استماع خطأ: $! n"؛ } #### سجل خدمة ### $ $ Obj يجب أن يكون مقبس مفتوح ونظامي Service_obj = Net :: Bluetooth-> Newservice ($ OBJ، "1101"، "GPS"، "GPS Receiver")؛ ما لم يكن (محدد ($ service_obj)) {#### تعذر تسجيل الخدمة} #### يقبل اتصال عميل $ Client_obj = $ Obj-> قبول ()؛ ما لم يكن (محدد ($ client_obj)) {die 'client قبول فشل: $! n "؛ } #### احصل على معلومات العميل الخاصة بي ($ CADDR، $ Port) = $ client_obj-> getpeername ()؛ #### إنشاء perl filehandle للقراءة والكتابة * العميل = $ client_obj-> perlfh ()؛ طباعة العميل "الأشياء"؛ #### إغلاق اتصال العميل إغلاق (عميل)؛ #### إيقاف خدمة الإعلان $ Service_obj-> StopService ()؛ #### إغلاق اتصال الخادم $ OBJ-> إغلاق ()؛ متطلبات: perl.

نت :: Bluetooth. برامج ذات صلة