如何在Perl CGI脚本中产生长时间运行的进程？

Question

I'm writing a Perl CGI script right now but it's becoming a resource hog and it keeps getting killed by my web host because I keep hitting my process memory limit. I was wondering if there is a way I can split the script I have into multiple scripts and then have the first script call the next script then exit so the entire script isn't in memory at once. I saw there is an exporter module but I don't know how to use it yet as I'm just learning Perl, and I don't think that will solve my memory problem but I might be wrong.

Answer 1

See Watching long processes through CGI .

On the other hand, just managing memory better might also solve your problem. For example, if you are reading entire files into memory at once, try to write the script so that it handles data line-by-line or in fixed sized chunks. Declare your variables in the smallest possible scope.

Try to identify what part of your script is creating the largest memory footprint and post the relevant excerpt in a separate question for more memory management suggestions.

Answer 2

If applicable, make the computation/generation off line.

create a daemon or a scheduled job that creates a static version of the results, the daemon can create a new version of the results on events (eg files modified) or in set intervals.

If you generate the page depending on client input, look into separating the logic so it's possible to cache at least parts of the application.

Side note, unless it suites your needs, I'd move away from CGI altogether and look into mod_perl or fastcgi , where you have persistent perl processes to handle requests which saves the overhead of forking a new perl interpretor, loading modules and etc.

Answer 3

Yes, you can start another perl-script from a perl-script and then exit the calling script:

http://perldoc.perl.org/functions/fork.html

Example Code:

#!/usr/bin/perl

my $pid = fork();
if (not defined $pid) {
    print "resources not avilable.\n";
} elsif ($pid == 0) {
    print "IM THE CHILD\n";
    sleep 5;
    print "IM THE CHILD2\n";
    exit(0);
} else {
    print "IM THE PARENT\n";
    waitpid($pid, 0);
}
print "HIYA\n";

But this won't work, if you want the second script being able to use the CGI to communicate with your webserver/user. If you are running the perl-script as CGI, then it has to return the result to the user.

So you have two ways of dealing with this problem:

• Try to find out, why you are using so much memory and improve the script.

• If there is really no way to reduce memory-consumption, you can use the daemonized perl-script as worker-process, that do the calculations and returns the results to your CGI-perl-script, which has to wait for the result before termination.