XBee/API/Perl のバックアップ(No.2)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• 現在との差分 - Visual を表示
• ソース を表示
• XBee/API/Perl へ行く。
  • 1 (2010-11-18 (木) 17:10:45)
  • 2 (2010-11-19 (金) 15:12:46)
  • 3 (2010-12-09 (木) 11:24:04)

PerlからXBeeを操作

Perlからはシリアルポート経由でXBeeを叩けば良いのだけれど、いろいろめんどうなので先達が作ってくれたモジュールを使う。

準備

ダウンロード、インストールする。

• XBee perl moodules
  • XBeeと通信するためのPerl用モジュール
  • 特にインストールする必要はないけど、Exampleがあるディレクトリで実行する必要がある。
• Device::SerialPort が必要。DebianとUbuntuは「libdevice-serialport-per」という公式パッケージをインストールする。

使い方

Exampleがいくつかあるのでそれを参考に使ってみる。
Xbee::ATの場合

#!/usr/bin/perl
use Xbee::AT;
my $Port="/dev/ttyUSB1";
my $xbee = Xbee::AT->new({ port => $Port, debug => 0});
#my $data = $xbee->rssi(); #DB command
#my $data = $xbee->hardware_version(); #Hardware Version
my $data = $xbee->firmware_version(); #Firmware Version
print "$data\n";

debugを1にすると実行途中のメッセージが表示される。
Xbee::ATを使った場合はできることがすくないみたい。