Microsoft
Software
Hardware
Network
Question : What am i doin wrong
sub Connect
{
print "Connecting to $host on $port...\n";
my $sock = new IO::Socket::INET( PeerAddr => 'C:\Program Files\Spirent Communications\SimPLEX\sim
plex.exe',
PeerPort => '15650',
Proto => 'tcp' );
die "Error: Could not create socket - $!\n" unless defined( $sock );
$sock->autoflush( 1 );
print "Sending $command command to $host on $port...\n";
$sock->send($command);
while (my $buffer = <$sock>) {
print "Server data:\n";;
print "$buffer\n";
}
$sock->close;
die "Error: Could not fork process - $!\n" unless defined( my $pid = fork() );
if( $pid ) {
while( my $buffer = <$sock> ) {
print "Server data:\n";;
print "$buffer\n";
}
close( $sock );
kill( "TERM", $pid );
} else {
print "Sending $command command to $host on $port...\n";
$sock->send( $command );
}
}
it doesnt connect
Answer : What am i doin wrong
First of all, PeerAddr should be ip address or host name of server, that listen port 15650, not path to program, like
my $sock = new IO::Socket::INET( PeerAddr => '192.168.1.1', PeerPort => '15650', Proto => 'tcp' );
Random Solutions
How to capture data from website into c#
video and music stutter
VB Script to export list of all distribution groups and members
PHP: use variable in function name?
How to implement getenumerator() method in a genrics class
Access database update help
Acronis Backup Restore Failed, Windows XP
Profile path for Powershell on Server 2008 R2
error: 26 - Error Locating Server/Instance Specified
IE & Firefox not working on VM Workstation