Vraag : Wat verkeerde I doin ben

sub Connect

{/> druk

$sock = nieuwe IO:: Contactdoos:: INET (Mededelingen van PeerAddr => de „C:\Program Files\Spirent \ Simplex\ simplex.exe“,
PeerPort => „15650“,
Proto => „TCP“);
matrijzen „Fout: Kon geen contactdoos creëren - $! \ n“ tenzij bepaald ($sock);
$sock->autoflush (1); /> druk

$sock->send ($command);
terwijl (mijn $buffer = <$sock>) {
gegevens van de druk de „Server: \ n“; ;
druk „$buffer \ n“;
}
$sock->close;

matrijzen „Fout: Kon zich geen proces vertakken - $! \ n“ tenzij bepaald (mijn $pid = vork ());

als ($pid) {
terwijl (mijn $buffer = <$sock>) {
gegevens van de druk de „Server: \ n“; ;
druk „$buffer \ n“; dichte
}
($sock); /> doden
} anders {/> druk
$sock->send ($command);
}
}




it verbindt geen

Antwoord : Wat verkeerde I doin ben

Eerst en vooral, zou PeerAddr ip adres of gastheernaam van server moeten zijn, die haven 15650, niet weg aan programma, als luistert
mijn $sock = nieuwe IO:: Contactdoos:: INET (PeerAddr => „192.168.1.1“, PeerPort => „15650“, Proto => „TCP“);