شبه :: بلوتوث NET :: بلوتوث رابط بلوتوث Perl است.
انون بارر ن

شبه :: بلوتوث رتبه بند و خلاصه

شبه :: بلوتوث برسب ها

ماول رل رابط رل بلوتوث رابط بلوتوث رل بلوتوث

شبه :: بلوتوث شرح

NET :: بلوتوث رابط اربر بلوتوث Perl است. Net :: بلوتوث رابط بلوتوث Perl است. Synopsis استفاده از شبه :: بلوتوث؛ #### لست تمام دستاه ها راه دور در منطقه My $ device_ref = get_remote_devices ()؛ foreach $ addr (لد $ device_ref) {print "آدرس: $ addr نام: $ device_ref -> {$ addr} n"؛ } #### جستجو برا سروس خاص (0x1101) بر رو دستاه از راه دور من sdp_array = sdp_search ($ addr، "1101"، "")؛ #### SUFFEEACH SERVICE PERFOREEACH $ REC_REF (SDP_ARRAY) {#### ا تمام اطلاعات موجود برا سروس foreach $ attr } n "؛ }} #### اجاد مشتر RFCOMM $ obj = net :: bluetooth-> newsocket ("rfcomm")؛ مر "خطا سوت $! n" مر انه (تعرف شده ($ obj))؛ ار ($ obj-> connect ($ addr، ورت $)! = 0) {die "خطا اتصال: $! n"؛ } #### filehandle Perl برا خواندن و نوشتن * سرور = $ obj-> perlfh ()؛ $ مقدار = خواندن (سرور، $ buf، 256)؛ بستن (سرور)؛ #### اجاد سرور RFCOMM $ obj = net :: bluetooth-> newsocket ("Rfcomm")؛ #### اتصال به ورت 1 ار ($ obj-> bind (1)! = 0) {die "bind error: $! n"؛ } #### وش دادن با backlog از 2 ار ($ obj-> وش دادن (2)! = 0) {die "وش دادن خطا: $! n"؛ } #### ثبت نام سروس #### $ OBJ باد سوت باز و محدود من $ service_obj = net :: bluetooth-> newservice ($ obj، "1101"، "GPS"، "رنده GPS")؛ مر انه (تعرف شده ($ service_obj)) {#### سروس ثبت نام ند} #### قبول اتصال مشتر $ client_obj = $ obj-> ذرش ()؛ مر انه (تعرف شده ($ client_obj)) {die "مشتر ذرفته نشد: $! n"؛ } #### درافت اطلاعات مشتر من ($ caddr، $ port) = $ client_obj-> getpeerername ()؛ #### اجاد FileHandle Perl برا خواندن و نوشتن * client = $ client_obj-> perlfh ()؛ ا مشتر "Stuff"؛ #### بستن اتصال مشتر نزد (مشتر)؛ #### STOP STOPT خدمات تبلغات $ SERVICE_OBJ-> STOPSERVICE ()؛ #### بستن سرور اتصال $ obj-> بستن ()؛ الزامات: رل

شبه :: بلوتوث نرم افزارها مرتبط