>> Hint: disable perl's print buffering with $|=1; before you fork().
I did this and it worked,
Thanks,
Appreciated very much,
-Pratibha
"Johannes Franken" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> * news reader <[EMAIL PROTECTED]> [2002-03-15 21:36 +
* news reader <[EMAIL PROTECTED]> [2002-03-15 21:36 +0100]:
> I have a perl script which is working as TCP socket server. [...]
> if (($processarray[$testNo] = fork()) == 0) {
> [...]
> The problem that i am facing is : the same line is printed more than once
When you fork(), the child inherits
Hello,
I have a perl script which is working as TCP socket server.
In this I am redirecting STDOUT to file.
with command in the begining of the script:
open STDOUT, '>./tRL.out' or die "./tRL.out: $!";
I have following four "print STDOUT" commands
while (accept(CLIENT,SERVER)) {
