您如何防止perl制作转储文件？

Question

Currently I am running several scripts which are in a experimental testing stage. Unfortunately they crash on occasion and generate large "core-perl-11-544-546-27320-1xxxxxxx" perl core dump files.

I want to ensure that if in the future these files crash again, they do not generate perl dump files, or the files size of the dump is limited.

Right now there are some scripts checking for Perl core dump files and removing them if they are greater than a set size, but this is an obvious band-aid on a broken knee.

How might I go about limiting the size of the perl dump file, or preventing one from being made?

Answer 1

To prevent the creation of a core dump file from within the perl script, you can use (procedure stolen from How do I set a ulimit from inside a Perl script that applies to its children? ):

require 'syscall.ph';
require 'sys/resource.ph';
$rstruct = pack "L!L!",0,&RLIM_INFINITY;
syscall(&SYS_setrlimit,&RLIMIT_CORE,$rstruct);

To limit dumps to a certain size, change the 0 above to the desired size.

Answer 2

wouldn't

use BSD::Resource; setrlimit(RLIMIT_CORE, 0, 0);

be simpler?