Hi , I have done a silly mistake which am not able to detect.
Below is a subroutine, that takes the Socket_Handle and the Message as arguments. First i send the message and then I start reading the Socket in a while loop until DONE is detected. I am pushing each line in a @buffer. When I print the @buffer outside the while loop , I am not getting the output. Note : The commented line i.e. #print "Server: $_"; works and prints all the lines read from the socket. Please somebody tell me what error have I been making. Regards Rajeev **************************************************** sub send_msg { $sock = shift @_; $msg = shift @_; my @buffer; select($sock); $| = 1; select(STDOUT); print $sock $msg, "\n"; while (<$sock>) { if( $_ =~ /^DONE$/) { print "Server: $_"; return; } #print "Server: $_"; push @buffer, $_; } print @buffer; } ************************************************* -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]