如何从应用于其子级的Perl脚本内部设置ulimit?

您已经回答了您的问题:使用 BSD::Resource .

Perl内核中没有与 setrlimit .如果你不能(或不会)使用标准方法,那么你必须使用黑客。您已经描述过的任何方法都可以工作。(请注意,您可以创建一个子例程来预处理 ulimit -s BLA; 到每个命令,然后使用该Sub而不是 system )

您总是可以用一个小的shell脚本包装Perl:

#!/bin/sh -- # --*-Perl-*--
ulimit -n 2048
exec /usr/bin/perl -x -S $0 ${1+"$@"}
#!/usr/bin/perl
#line 6

use strict;

# etc, etc....

很难看,很明显,脚本启动时间会稍微长一些。

下面是一个示例,说明如何在不使用bsd::resource的情况下设置CPU限制(但假设存在Perl系统头文件)。为了适应其他资源,做出明显的改变。

require 'syscall.ph';
require 'sys/resource.ph';

# set the soft cpu limit to 1 (second), and the hard limit to 10.
$rstruct = pack "L!L!",1,10; # L! means native long unsigned int.
syscall(&SYS_setrlimit,&RLIMIT_CPU,$rstruct);

这假设知道rlim-t实际上是无符号的long;我不知道是否有方法从perl头中提取这个信息。

我最后准备好了 ulimit -s BLA 到需要它的命令。我特别不想使用bsd::resource,因为它不是默认的Perl包,并且在现有的大约一半开发人员计算机上丢失了它。没有用户交互是一个特定的需求。