Net :: bluetooth net :: bluetooth ist eine perl bluetooth-obersicht.
Jetzt downloaden

Net :: bluetooth Ranking & Zusammenfassung

Net :: bluetooth Stichworte

Perl-Modul Schnittstelle Perl Bluetooth Bluetooth-Schnittstelle. Perl Bluetooth

Net :: bluetooth Beschreibung

Netz :: Bluetooth ist eine Perl-Bluetooth-Schnittstelle. NET :: Bluetooth ist eine Perl-Bluetooth-Schnittstelle.Synopsis Verwenden Sie net :: bluetooth; #### Listen Sie alle Remote-Geräte in der Umgebung auf, in der mein $ device_ref = get_remote_devices (); Deeach $ Addr (Tasten% $ device_ref) {drucken "Adresse: $ Addr Name: $ device_ref -> {$ addr} n"; } #### Suche nach einem bestimmten Dienst (0x1101) auf einem Remote-Gerät my @sdp_array = sdp_search ($ addr, "1101", ""); #### FOREACH Service Record Foreach $ rec_ref (@sdp_array) {#### Drucken Alle verfügbaren Informationen für Service Foreach $ attr (Keys% $ rec_ref) {drucken "Attribut: $ atr value: $ rec_ref -> {$ attr }n"; }} #### Erstellen eines RFComm-Clients $ obj = net :: bluetooth-> kochen ("rfcomm"); Die "Socket-Fehler $! N", sofern nicht (definiert ($ obj)); if ($ OBJ-> Connect ($ Addr, $ Port)! = 0) {Die "Anschließen des Fehlers: $! n"; } #### Erstellen Sie einen Perl-FileHandle zum Lesen und Schreiben * server = $ obj-> perlfh (); $ stet = Read (Server, $ BUF, 256); schließen (Server); #### Erstellen Sie einen RFComm-Server $ obj = net :: bluetooth-> kinesen ("rfcomm"); #### Binden an Port 1, wenn ($ obj-> binden (1)! = 0) {Die "Bind-Fehler: $! N"; } #### Hören Sie einen Backlog von 2 if ($ obj-> hören (2)! = 0) {Die "Hören Sie den Fehler: $! n"; } #### Registrieren Sie sich in einem Service #### $ Obj muss eine offene und gebundene Steckdose sein. Es sei denn (definiert ($ service_obj)) {#### kann nicht registrieren service}} #### Akzeptieren Sie einen Client-Anschluss $ client_obj = $ obj-> akzeptieren (); Es sei denn (definiert ($ client_obj)) {Die "Client-Akzeptanz ist fehlgeschlagen: $! n"; } #### Get Client Information My ($ CADDR, $ Port) = $ client_obj-> getPeName (); #### Erstellen Sie einen Perl-FileHandle zum Lesen und Schreiben * Client = $ client_obj-> perlfh (); Print-Client "Zeug"; #### Close Client Connection Close (Client); #### Hören Sie Werbungsservice $ service_obj-> stoppservice (); #### Close Server Connection $ obj-> close (); Anforderungen: · Perl.

Net :: bluetooth Zugehörige Software