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

Question

我现在正在编写一个 Perl CGI 脚本，但它正在成为一个资源占用者，并且它不断被我的网络主机杀死，因为我不断达到我的进程内存限制。我想知道是否有一种方法可以将我拥有的脚本拆分为多个脚本，然后让第一个脚本调用下一个脚本然后退出，这样整个脚本就不会一次在内存中。我看到有一个导出器模块，但我不知道如何使用它，因为我刚刚学习 Perl，我认为这不能解决我的内存问题，但我可能错了。

Answer 1

见Watching long processes through CGI。

另一方面，更好地管理内存也可能解决您的问题。例如，如果您一次将整个文件读入内存，请尝试编写脚本，以便它逐行或以固定大小的块处理数据。在尽可能小的范围内声明变量。

尝试确定脚本的哪一部分造成了最大的内存占用，并将相关摘录发布在单独的问题中以获取更多内存管理建议。

Answer 2

如果适用，使计算/生成离线。

创建一个守护进程或一个计划的作业来创建结果的静态版本，守护进程可以在事件（例如文件修改）或设定的时间间隔内创建结果的新版本。

如果您根据客户端输入生成页面，请考虑分离逻辑，以便可以缓存至少部分应用程序。

旁注，除非它适合您的需要，否则我会完全放弃 CGI，并查看 mod_perl 或 fastcgi，您可以在其中使用持久的 perl 进程来处理请求，从而节省分叉新的 perl 解释器的开销，加载模块等。

Answer 3

是的，您可以从 perl 脚本启动另一个 perl 脚本，然后退出调用脚本：

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

示例代码：

#!/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";

但是，如果您希望第二个脚本能够使用 CGI 与您的网络服务器/用户进行通信，这将不起作用。如果您将 perl 脚本作为 CGI 运行，那么它必须将结果返回给用户。

所以你有两种方法来处理这个问题：

• 尝试找出为什么要使用这么多内存并改进脚本。

• 如果实在没有办法减少内存消耗，你可以使用守护进程 perl 脚本作为工作进程，它会进行计算并将结果返回给你的 CGI-perl 脚本，等待结果再终止。