RE: fork didn't work

Jutu Subramanian, Srinivasan (Cognizant) Wed, 27 Oct 2004 00:09:40 -0700

Title: Message

If anybody know to sort out the problem for the following exception "run out of memory". It is throwing for the scenario,

1. Whenever my tool call another perl script using fork and exec.

2. Whenever to read the CRC value for the the invalid compressed data to inflate feed file used in the zip file.

If it is sortable, Please let me know.

ERROR:

The instruction at "0x023b1c53" referenced memory at "0x00000002". The memory could not be "read".

Click on OK to terminate the program

Click on CANCEL to debug the program.

script :Perl script version 5.6

OS:windows OS 2000 Service pack 4

regards

Srinivas

-----Original Message-----
From: Michael G. Jung [mailto:[EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 5:45 PM
To: Jutu Subramanian, Srinivasan (Cognizant); [EMAIL PROTECTED]
Subject: RE: fork didn't work

Each fork under activestate runs as a thread. There is a compiled in limit of 64 active threads.

Why don’t you use Win32::Process::Create instead or fork?

Hope this helps.

--mikej
Michael Jung

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Jutu Subramanian, Srinivasan (Cognizant)
Sent: Tuesday, October 26, 2004 7:56 AM
To: [EMAIL PROTECTED]
Subject: fork didn't work

Hi ,

If I execute the following program, It executes fine till the loop 64. fork didn't work at the 65th loop and exit.

Error thrown: fork didn't work: 65=Resource temporarily unavailable
Perl version : 5.6

OS            : windows 2000 SP4

May I know the reason and how to handle this?

--------------------------------start program-----------------------------------------
use Win32::Process;
use Cwd;
for(my $i=1;$i<=100;$i++)
{
&execFile("$i");
}

sub execFile
{
    my $FILTERFILEPATH="D:/PerlEx/perleg/perltoperl/filter.pl";

    my($logfile)[EMAIL PROTECTED];

    #child process is created with fork.
    my $newpid = fork();

    if( $newpid == 0 )
    {
        exec "perl.exe $FILTERFILEPATH $logfile";
    }
    else
    {
        print("PARENT PROCESS=$logfile\n");
    }
}#end of execFile
--------------------------------end program-----------------------------------------

regards

Srinivas

This e-mail and any files transmitted with it are for the sole use of the intended recipient(s) and may contain confidential and privileged information.
If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.
Any unauthorized review, use, disclosure, dissemination, forwarding, printing or copying of this email or any action taken in reliance on this e-mail is strictly
prohibited and may be unlawful.

Visit us at http://www.cognizant.com

This e-mail and any files transmitted with it are for the sole use of the intended recipient(s) and may contain confidential and privileged information.
If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.
Any unauthorized review, use, disclosure, dissemination, forwarding, printing or copying of this email or any action taken in reliance on this e-mail is strictly
prohibited and may be unlawful.

Visit us at http://www.cognizant.com

_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: fork didn't work

Reply via email to