Front page | perl.beginners |
Postings from July 2003
RE: Help !!! on sockets
Thread Previous
|
Thread Next
From:
Kipp, James
Date:
July 16, 2003 12:03
Subject:
RE: Help !!! on sockets
Message ID:
EC6C49DE5C846143AA2CE580420E77C302B69CEC@xexwlm05.mbnainternational.com
> 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;
> }
try: $buffer .= $_;
print $buffer;
Thread Previous
|
Thread Next