ホームオートメーションバスのアクティビティを監視し、ライトのステータスが変化したときに「言う」ためのこの単純な Perl ソフトウェアがあります。Xcodeプレイグラウンドを使用してSwift言語を使用して実装したいと思います。試してみるべき解決策はありますか?
#!/usr/bin/perl -w
#
use strict;
use IO::Socket::INET;
my $mh200ip = "10.0.1.82";
my $ownport = "20000";
my $frames;
my $socket = IO::Socket::INET->new(
PeerAddr => $mh200ip,
PeerPort => $ownport,
Proto => "tcp",
Type => SOCK_STREAM
);
die "Could not create socket: $!\n" unless $socket;
$socket->send("*99*1##"); # Sending OPEN ACK
while (1) {
$socket->recv( $frames, 128 );
if ( $frames ne '' ) {
print "$frames\n";
my $data = ($frames);
my @values = split( '##', $data );
if ( $data eq "*1*0*53##" ) {
`say "light off"`;
}
if ( $data eq "*1*1*53##" ) {
`say "light on"`;
}
} else {
print "server closed connection";
exit 1;
}
}