Net :: Bluetooth. NET :: Bluetooth는 Perl Bluetooth 인터페이스입니다.
지금 다운로드

Net :: Bluetooth. 순위 및 요약

Net :: Bluetooth. 태그

Perl 모듈 상호 작용 펄 블루투스 블루투스 인터페이스 Perl Bluetooth.

Net :: Bluetooth. 설명

Net :: Bluetooth는 Perl Bluetooth 인터페이스입니다. Net :: Bluetooth는 Perl Bluetooth 인터페이스입니다 .Synopsis는 Net :: Bluetooth를 사용합니다. #### 영역의 모든 원격 장치를 나열하십시오. my $ device_ref = get_remote_devices (); foreach $ addr (키 % $ device_ref) {인쇄 "주소 : $ addr name : $ device_ref -> {$ addr} n"; } #### 원격 장치에서 특정 서비스 (0x1101)를 검색하십시오. 내 @sdp_array = sdp_search ($ addr, "1101", ""); #### foreach $ rec_ref foreach $ rec_ref (@sdp_array) {#### 서비스를위한 사용 가능한 모든 정보 인쇄 $ attr (키 % $ rec_ref) {print "속성 : $ rec_ref -> {$ attr }N"; }} #### rfcomm 클라이언트 만들기 $ obj = net :: bluetooth-> newsocket ( "rfcomm"); (정의 된 ($ obj)); if ($ obj-> connect ($ addr, $ port)! = 0) {die "연결 오류 : $! n"; } #### 읽기 및 쓰기를위한 Perl 파일 핸들 만들기 * 서버 = $ obj-> perlfh (); $ mAULS = 읽기 (서버, $ BUF, 256); 닫기 (서버); #### rfcomm 서버 생성 $ obj = net :: bluetooth-> newsocket ( "rfcomm"); #### ($ obj-> bind (1)! = 0) {die "bind 오류 : $! n"; } #### ($ obj-> 듣기 (2)! = 0) {die "듣기 오류 : $! n"; } #### 서비스 등록 #### $ obj는 열려 있고 바인딩 된 소켓이어야합니다. MY $ service_obj = net :: Bluetooth-> newervice ($ obj, "1101", "GPS", "GPS 수신기"); (정의 된 ($ service_obj)) {#### 서비스를 등록 할 수 없음} #### 클라이언트 연결 수락 $ client_obj = $ obj-> accept (); (정의 된 ($ client_obj)) {die "클라이언트가 실패한 경우가 아닌 경우 : $! n"; } #### 클라이언트 정보 가져 오기 내 ($ CADDR, $ 포트) = $ CLIENT_OBJ-> getPEername (); #### 읽기 및 쓰기를위한 Perl FileHandle 만들기 * Client = $ Client_OBJ-> PerlFH (); 클라이언트 "TELEM"인쇄; #### 클라이언트 연결 닫기 (클라이언트); #### 광고 서비스 중지 $ service_obj-> stopservice (); #### 닫기 서버 연결 $ obj-> close (); 요구 사항 : · Perl.

Net :: Bluetooth. 관련 소프트웨어