Bluetooth Programming

Abis cari cari di CPAN, eh ternyata ada beberapa modules (.pm) buat bluetooth programming with perl, sehingga memudahkan kita (secara lo tau manfaat dari modules :p) dalam pemrograman lebih lanjut, sebagai contoh untuk modules bluetooth (Net::Bluetooth) maka gw cuma perlu meng-definisikannya pada skript yang di buat;

use Net::Bluetooth;

Sehingga kita bisa menggunakannya secara lengkap di skript (seperti yang telah di contohkann dalam penjelasan singkat dari modules tersebut), misal untuk menemukan device yang discoverable/visible (similar with "hcitool scan" command)



skript tersebut menggunakan fungsi get_remote_devices(); yang di jelaskan secara singkat dalam Bluetooth.pm sbb;

=item get_remote_devices()

Searches for remote Bluetooth devices. The search will
take approximately 5 - 10 seconds (This will be a configurable
value in the future.). When finished, it will return a hash
reference that contains the device address and name. The
address is the key and the name is the value. Name will be
set to "[unknown]" if the name could not be resolved. See the
NOTES section of this document for more information about this.

Hehehe, dah ada bayangan kan penggunaanya? !#@!#@$%^%&**&%% :lol: