Perlでパトライトを制御Perlでパトライ

Perlでパトライトを制御Perlでパトライトを制御 PHN-3FBE1というパトライトをPerlスクリプトを使ってネットワーク経由で制御したいと考えています。

Perl自体はCGI等で組んだ経験はあるのですが、ネットワークプログラミング辺りの知識がまったくなく悪戦苦闘中です。

どこかいいサンプルがあるところはありませんでしょうか？

ちなみに検索してみるとRubyで実装されている方はいらっしゃいました。

これのPerl版を作りたいです。何か良い情報ありましたらご教授ください。こんなとこ？未確認ですが。

参考：

use strict;

use IO::Socket;

unless (@ARGV == 3) { die "usage: $0 host port cmd" }

my ($sHost, $iPort, $iCmd) = @ARGV;

print "IP: $sHost / $iPort : $iCmd\n";

my $handle = IO::Socket::INET->new(Proto => "tcp",

 PeerAddr => $sHost,

 PeerPort => $iPort)

 or die "can't connect to port $iPort on $sHost: $!";

binmode($handle); 

$handle->autoflush(1);

print $handle pack('c*', 87, $iCmd+0);;

$handle->close();ありがとうございますm(．．)m 実機が手に入り次第試してみたいと思います。助かりました(^-^)