我有这个简单的Perl软件来监视我的家庭自动化总线的活动,并在灯光改变状态时“说”。我想用Xcode操作系统使用Swift语言来实现它。任何解决方案尝试?如何使用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;
}
}
这是一个“请翻译我的代码” - 请求,这是不适合堆栈溢出 - 它太广阔。不要求翻译,首先尝试翻译,然后询问你没有设法翻译自己的具体部分。这表明你已经做出了一些努力来帮助自己,而不是要求别人为你做所有的工作。 – amon 2014-10-29 23:17:58