Sending multiple requests to a perl socket

[fixu2]

I am trying to send and receive requests to the same socket in the following fashion.

1. 1) open socket
2. 2) send LOGINPDU,
3. 3) recv response from server and if ok send TRANSPDU
4. 4) recv response from server
5. 5) send LOGOUTPDU.

#Sample of what am trying to do below:

my $sock = IO::Socket::INET->new( Proto=> "tcp", PeerAddr => "$IP",
        PeerPort => "$port") || die "Could not connect to host => $IP:
+$port \n";

print $sock $LOGINPDU."\n";
while($ans=<$sock>){
                $ans1.=$ans;
        }
$sock->flush();
if($ans1){
print $sock $transPDU."\n";

        while($tns=<$sock>){
    
                $tns.=$tns;
        }
   
}

$sock->close();

The problem is that am only receiving response for the first request. Am not receiving response for the second pdu

[NetWallah]

Your read loop:

 while($ans=<$sock>)

will not exit until the other side closes the socket.

Try doing a single read

$ans=<$sock>;

in a scalar context, then "print" to the socket, followed by another "read".

[Anonymous Monk]

thanks NetWallah. I tried the following and still failed: my $ans1=<$sock>; my $ans2 = ""; $sock->flush(); if($ans1) { my $sent = $sock->send($PDU2); $ans2=<$sock>){ } print $ans2,"\n";

[NetWallah]

"still failed" is an insufficient description - it does not help us in assisting you.

Please add "print" statements at each step, with relevant data output. See WHERE it is failing, and with what error.

You also need to print output for each alternative. In other words, if your "if" statement takes the "false" path, you need to add an "else" clause to print that the IF took that path.

Please use <code> tags </code>, so your code displays in a more legible manner.

[wjw]

my $sock = IO::Socket::INET->new( 
   Proto=> "tcp", 
   PeerAddr => "$IP", 
   PeerPort => "$port")
   || die "Could not connect to host => $IP:$port \n"; 
print $sock $LOGINPDU."\n"; 
while($ans=<$sock>){ 
   $ans1.=$ans; 
} 
$sock->flush(); 
if($ans1) { 
   print $sock $transPDU."\n"; 
   while($tns=<$sock>) { 
     $tns.=$tns; 
   } 
} 
$sock->close();

What problem are you seeing?

[fixu2]

The problem is that am only receiving response for the first request. Am not receiving response for the second pdu