fork a new process in perl

I was doing something today and found that I require to fork a new process in perl. Now I had never done this earlier, so I did not know how to do this.

First some background :

I was doing some program very similar to http server, where the script accepts some input through a socket and then processes the same. In doing so I was seeing that the script was taking some time in processing the input and thus was not processing the second request until the first one was completed. Simple solution, fork the process.

[cc lang=”perl”]

$pid=fork();

if (! $fork)

{

do the child processing

exit

}

else

{

do the parent processing

exit

}

Enhanced by Zemanta

About Amit Agarwal