Frage : Was ich doin Unrecht sind

VorConnect

{

Druck „, der an $host auf $port… \ n“ anschließt; mein
$sock = neuer IO:: Einfaßung:: INET (PeerAddr => „C:\Program Files\Spirent-Kommunikationen \ Simplexbetrieb \ simplex.exe“,
PeerPort => „15650“,
Proto => „TCP ");
sterben „Störung: Konnte Einfaßung nicht herstellen - $! \ n“, es sei denn definiert ($sock);
$sock->autoflush (1);

Druck „, der $command Befehl zu $host auf $port… \ n“ schickt;
$sock->send ($command);
, während (mein $buffer = <$sock>) {
Druck „Bedienerdaten: \ n“; ;
Druck „$buffer \ n“;
}
$sock->close;

sterben „Störung: Konnte nicht gabeln Prozess- $! \ n“, es sei denn definiert (mein $pid = Gabel ());

, wenn ($pid) {
, während (mein $buffer = <$sock>) {
Druck „Bedienerdaten: \ n“; ;
Druck „$buffer \ n“;
}
schließen ($sock);
Tötung („AUSDRUCK“, $pid);
} sonst {
Druck „, der $command Befehl zu $host auf $port… \ n“ schickt;
$sock->send ($command);
}
}




it schließt nicht an

Antwort : Was ich doin Unrecht sind

Zuerst sollte PeerAddr IP address sein, oder Wirtsname des Bedieners, der hören Hafen 15650, nicht Weg zum Programm, wie
mein $sock = neuer IO:: Einfaßung:: INET (PeerAddr => „192.168.1.1“, PeerPort => „15650“, Proto => „TCP ");