Pytanie : Krzywda być i doin krzywda

$port Connect

{

druk "$host na $port… \ n";
mój $sock = nowy IO:: Nasadka:: INET (PeerAddr => "C:\Program Files\Spirent Komunikacja \ SimPLEX \ simplex.exe",
PeerPort => "15650",
=> => "tcp ");
kostka do gry "Błąd: Móc nasadka - $! \ n" jeśli definiować ($sock);
$sock->autoflush (1);

druk "Dosłanie $command rozkaz $host na $port… \ n";
$sock->send ($command);
podczas gdy (mój $buffer = <$sock>) {
druk "Serwer dane: \ n"; ;
druk "$buffer \ n";
}
$sock->close;

kostka do gry "Błąd: Móc proces - $! \ n" jeśli definiować (mój $pid = rozwidlenie ());

jeżeli ($pid) {
podczas gdy (mój $buffer = <$sock>) {
druk "Serwer dane: \ n"; ;
druk "$buffer \ n";
}
zakończenie ($sock);
zwłoki ("TERMIN", $pid);
} inny {
druk "Dosłanie $command rozkaz $host na $port… \ n";
$sock->send ($command);
}
}




it łączyć

Odpowiedź : Krzywda być i doin krzywda

Najpierw wszystko, PeerAddr musieć adres IP lub gospodarz imię serwer, który słuchać port 15650, nie ścieżka, jak
mój $sock = nowy IO:: Nasadka:: INET (PeerAddr => "192.168.1.1", PeerPort => "15650", 15650 => "tcp ");