Fråga : Vilken förmiddag mig doinfel

underConnect

{trycket för

”som förbinder till $host på $port-… \ n”; min
$sock = ny IO:: Hålighet:: INET (PeerAddr => ”C:\Program Files\Spirent kommunikationer \ SimPLEX \ simplex.exe”, => för
PeerPort ”15650”, Proto => ”tcp” för
); matris”fel för
: Kunde inte skapa hålighet - $! \ n”, om inte definierat ($sock);
$sock->autoflush (1); trycket för

”som överför $command, befaller till $host på $port-… \ n”;
$sock->send ($command);
fördriver (mitt serverdata för $buffer = för <$sock>) {tryck för
”: \ n”; ; tryck för
”$buffer \ n”;
$sock->close för
}; matris”fel för

: Kunde inte dela sig processaa - $! \ n”, om inte definierat (mitt $pid = dela sig ());

, om ($pid) {
fördriver (mitt serverdata för $buffer = för <$sock>) {tryck för
”: \ n”; ; tryck för
”$buffer \ n”; nära
för
} ($sock); byte för
(”BENÄMNA”, $pid);
} annars {det
trycket ”som överför $command, befaller till $host på $port-… \ n”;
$sock->send ($command);




it för
för
}} förbinder inte " klar "

Svar : Vilken förmiddag mig doinfel

Först allra, PeerAddr bör vara IPet address, eller att vara värd känt av serveren, det lyssna port 15650, inte bana till programet, något liknande
mitt $sock = ny IO:: Hålighet:: INET (PeerAddr => ”192.168.1.1”, PeerPort => ”15650”, Proto => ”tcp”);