[Perl] input van socket naar variabele wegschrijven

[Verwijderd]

Hallo,

Ik ben bezig met een scriptje waarbij ik probeer input van een server te krijgen. Ik heb gewoon een socket geopend met IO::Socket::INET->new(blablabla) en het protocol is dus zegmaar zo dat ik iets zeg tegen de server, en dan krijg ik iets terug en dan zeg ik weer iets enz., duz:

print $remote "Beriggie 1\n";
while (<$remote> eq "") { };
print $remote "Beriggie 2\n";
while (<$remote> eq "") { };
print $remote "Beriggie 3\n";
while (<$remote>) { print };

($remote is dus de connectie... d0h...)
Nadat ik beriggie 3 heb verstuurd krijg ik nog 1 berichtje van de server terug en die verbreekt vervolgens de verbinding. De input die ik op het laatst krijg kan ik zo dus zien, maar ik krijg het niet voormekaar om ook de andere 2 inputs te laten zien en (wat ik dus eigenlijk wil) op te vangen in een variabele. Iemand ideeen?

Alvast bedankt!

[Verwijderd]

*Kick*

Niemand?

[Rowwan]

$var = <$remote>

[BRAINLESS01]

probeer anders eens:

code:

while (($var = <$remote>) eq "") {}