ネット:: Bluetooth Net :: BluetoothはPerl Bluetoothインターフェースです。
今すぐダウンロード

ネット:: Bluetooth ランキングとまとめ

ネット:: Bluetooth タグ

Perlモジュール インターフェース パール ブルートゥース Bluetoothインターフェース Perl Bluetooth

ネット:: Bluetooth 説明

Net :: BluetoothはPerl Bluetoothインターフェースです。 Net :: BluetoothはPerl Bluetooth interface.Synopsisを使用します。 ####この領域のすべてのリモートデバイスをリストマイ$ device_ref = get_remote_devices（）; Foreach $ ADDR（キー％$ device_ref）{印刷 "アドレス：$ ADDR名：$ device_ref - > {$ addr} n"; ####リモートデバイス上の特定のサービス（0x1101）を検索するMy @ sdp_array = sdp_search（$ ADDR、 "1101" "）; ####サービスレコードforeach $ rec_ref（@ sdp_array）{####サービスの利用可能なすべての情報を印刷する$ attr（キー％$ rec_ref）{print "属性：$ attr値：$ ref_ref - > {$ attr n "; RFCOMMクライアントを作成する$ obj = Net :: Bluetooth-> Newureooth（ "RFCOMM"）; （定義（$ OBJ））の場合を除き、「ソケットエラー$！n」。 （$ obj-> connect（$ addr、$ port）！= 0）{die "connectエラー：$！n"; #### * server = $ obj-> perlfh（）を読み書きするためのPerlファイルハンドルを作成します。 $額=読み取り（サーバー、$ BUF、256）;閉じる（サーバー）; #### RFCOMMサーバを作成する$ OBJ = NET :: Bluetooth-> Newuetooth（ "RFCOMM"）; #### if（$ obj-> bind（1）！= 0）の場合は、ポート1にバインドします。 #### if（$ obj-> listen（2）！= 0）{死ぬエラー：$！n "; ####サービスを登録する#### $ OBJは、OpenとBound Socket My $ service_obj = Net :: Bluetooth-> NewService（$ OBJ、 "1101"、 "GPS"、 "GPS受信機"）です。 （定義された（$ service_obj））{####が登録できませんでした} ####を受け入れるクライアント接続$ client_obj = $ obj-> accept（）} （定義された（$ client_obj））{DIE "クライアント承諾が失敗しました：$！n"; ####クライアント情報を取得するMy（$ CADDR、$ PORT）= $ client_obj-> getPeername（）; #### * client = $ client_obj-> perlfh（）を読み書きするためのPerlファイルハンドルを作成します。印刷クライアント「もの」; ####クライアント接続クローズ（クライアント）; ####停止サービスサービス$ service_obj-> stopService（）; ####閉じるサーバー接続$ obj-> close（）;要件： ・Perl

ネット:: Bluetooth 関連ソフトウェア