Schalten in Perl
Verfasst: Montag 8. März 2010, 11:28
Ich bin kein Programmierer, aber dieses Stückchen Code funzt bei mir mit der Firmwareversion 3.0.
Code: Alles auswählen
# ----------------------------------------------------------------------------
sub handlePowerOn {
use IO::Socket;
my $sock = new IO::Socket::INET (
PeerAddr => 'net-control',
PeerPort => '75',
Proto => 'udp',
);
die "Could not create socket: $!\n" unless $sock;
print $sock "Sw_on1user\x00\n";
close($sock);
}
# ----------------------------------------------------------------------------
sub handlePowerOff {
use IO::Socket;
my $sock = new IO::Socket::INET (
PeerAddr => 'net-control',
PeerPort => '75',
Proto => 'udp',
);
die "Could not create socket: $!\n" unless $sock;
print $sock "Sw_off1user\x00\n";
close($sock);
}