NET :: Bluetooth NET :: Bluetooth is een Perl Bluetooth-interface.
Download nu

NET :: Bluetooth Rangschikking & Samenvatting

NET :: Bluetooth Tags

Perl-module koppel perl Bluetooth Bluetooth-interface Perl bluetooth

NET :: Bluetooth Beschrijving

NET :: Bluetooth is een Perl Bluetooth-interface. NET :: Bluetooth is een Perl Bluetooth-interface.Synopsis Gebruik NET :: Bluetooth; #### lijst alle externe apparaten in het gebied My $ Device_ref = get_remote_devices (); Foreach $ Addr (Sleutels% $ Device_ref) {Print "Adres: $ AddR-naam: $ Device_ref -> {$ addr} n"; } #### Zoek naar een specifieke service (0x1101) op een afstandsbediening MY @SDP_ARRAY = SDP_SEARCH ($ ADDR, "1101", ""); #### Foreach Service Record Foreach $ Rec_ref (@SDP_ARRAY) {#### alle beschikbare informatie voor service Foreach $ attrict (KEYS% $ REC_REF) {Print "Attribuut: $ ARF-waarde: $ Rec_ref -> {$ attra }N"; }} #### Maak een RFCOMM-client $ OBJ = NET :: Bluetooth-> Newsocket ("RFCOMM"); Die "Socket Fout $! N", tenzij (gedefinieerd ($ OBJ)); if ($ OBJ-> Connect ($ Addr, $ poort)! = 0) {DIE "Sluit Fout aan: $! N"; } #### Maak een PERL-bestandshandeling voor het lezen en schrijven * Server = $ OBJ-> PERLFH (); $ bedrag = gelezen (server, $ buf, 256); sluiten (server); #### Maak een RFCOMM-server $ obj = netto :: bluetooth-> cirkels ("RFCOMM"); #### bindt aan poort 1 if ($ OBJ-> bind (1)! = 0) {Die "Bind Fout: $! N"; } #### Luister met een achterstand van 2 if ($ Obj-> Luister (2)! = 0) {Die "Luister Fout: $! N"; } #### Registreer een service #### $ OBJ MOET een open en gebonden socket zijn My $ SERVICE_OBJ = NET :: Bluetooth-> NewsVice ($ OBJ, "1101", "GPS", "GPS-ontvanger"); Tenzij (gedefinieerd ($ SERVICE_OBJ)) {#### Kon Service niet registreren} #### Accepteer een clientverbinding $ client_obj = $ OBJ-> Accepteer (); Tenzij (gedefinieerde ($ client_obj)) {DIEN "CLANT accepteert mislukt: $! N"; } #### Krijg klantinformatie mijn ($ caddr, $ poort) = $ client_obj-> getpeername (); #### Maak een PERL-bestandshandeling voor het lezen en schrijven van * client = $ client_obj-> perlfh (); Print client "dingen"; #### Sluit clientverbinding Sluiten (cliënt); #### Stop Advertision Service $ Service_obj-> StopService (); #### Sluit serveraansluiting $ OBJ-> Sluiten (); Vereisten: · Perl

NET :: Bluetooth Gerelateerde software