#!/usr/bin/perl
/* kleines perlscript zum auslesen des gewichtes einer bizerba waage mit ethernet interface */
use IO::Socket::INET
print "IP: 192.99.168.93\n";
$host = "192.99.168.93";
print "Port: 1025\n";
$port = 1025;
$waage = new IO::Socket::INET(   PeerAddr => $host,
                                  PeerPort => $port,
                                  Proto => 'tcp');

/* ASCII seq zum holen des aktuellen gewichts */
print $waage "q%\r\n";
while ($waage) {

/*nur der erste antwort string wird ausgegeben */
$antwort = <$waage>;
print ("ANTWORT: $antwort \n");
}
print "ende";
close(waage)