Daemon mit IO::Socket abfragen - warten auf Antwort ? (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]19704[/thread]

Daemon mit IO::Socket abfragen - warten auf Antwort ?

Tags: perl5 socket Similar Threads

Readers: 16

Articles: hide open all | hide show old branches

+2 replies

gtrdriver

2015-06-25 21:14

User since
2012-09-16
11 articles
BenutzerIn
[default_avatar]

Hallo zusammen

ich gebe es zu ein Perl Freak bin ich nicht - aber wer nicht wagt der nicht gewinnt....

Was möchte ich tun:

Ich möchte einen daemon abfragen der eine Socket Verbindung bereit stellt.

Dabei werden kommandos abgesetzt und die Antwort soll ausgewertet werden.

Ich hab mir schon ein paar Code Schnipsel zusammengesucht und ich konnte schon 2 Befehle absetzen und die Antwort lesen - aktuell habe ich aber 2 Probleme:

1: Der Daemon benötigt teilweise mehrere Sekunden bis auf die Anfrage eie Antwort kommt weil im Hintergrund ein anderes BUS System abgefragt wird - wie bekomme ich es hin dass mit dem read gewartet wird bis daten kommen

2: In dem Code Beispiel wird offenbar die maximale Lesemenge begrenzt (2048) - wie erreiche ich dass immer alles was geliefert wird übernommen wird ?

Soweit bin ich aktuell:

Code: (dl )

use warnings;

my ($data,$length);

# flush after every write
$| = 1;

# creating object interface of IO::Socket::INET modules which internally creates
# socket, binds and connects to the TCP server running on the specific port.
my $socket = new IO::Socket::INET (
            PeerHost => 'localhost',
            PeerPort => '8888',
            Proto => 'tcp',
            Blocking => 0,
            ) or die "ERROR in Socket Creation : $!\n";

print "TCP Connection Success.\n\n";


# read the socket data sent by server.
....
#while(1)
#  {
    $data= "read -m 60 -c heatpump mode";...
    $socket->send("$data\n");
sleep 5;
    $socket->recv($data,2048);
    print ("Received from Server : $data\n\n");
#    }

    $data= "read -m 60 -c heatpump mode2";..
    $socket->send("$data\n");
sleep 5;
    $socket->recv($data,2048);
    print ("Received from Server : $data\n\n");

PS: Ohne die "sleep 5" geht das schief weil der Daemon zeit braucht - aber sleep ist ja auch keine Lösung ....

CU
GTR

GwenDragon

2015-06-26 13:36

User since
2005-01-17
14840 articles
Admin1

Sowas geht bei diner Anwendung nicht?

Code (perl): (dl )

    $data= "read -m 60 -c heatpump mode2";..
    $socket->send("$data\n");
    sleep 5;
    $data = '';
    while ( my $line = <$socket> ) {
       $data .= $line;
    }
    print ("Received from Server : $data\n\n");

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2015-06-25 21:14.