現在、実験的なテスト段階にあるいくつかのスクリプトを実行しています。残念ながら、時々クラッシュし、大きな "core-perl-11-544-546-27320-1xxxxxxx" perl コア ダンプ ファイルを生成します。
将来、これらのファイルが再びクラッシュした場合に、perl ダンプ ファイルが生成されないようにするか、ダンプのファイル サイズが制限されるようにしたいと考えています。
現在、Perl コア ダンプ ファイルをチェックし、設定されたサイズよりも大きい場合はそれらを削除するスクリプトがいくつかありますが、これは明らかな応急処置です。
perl ダンプ ファイルのサイズを制限したり、ファイルが作成されないようにするにはどうすればよいですか?
perl スクリプト内からコア ダンプ ファイルが作成されないようにするには、次の手順を使用できます (その子に適用される Perl スクリプト内から ulimit を設定するにはどうすればよいですか? から引用した手順):
require 'syscall.ph';
require 'sys/resource.ph';
$rstruct = pack "L!L!",0,&RLIM_INFINITY;
syscall(&SYS_setrlimit,&RLIMIT_CORE,$rstruct);
ダンプを特定のサイズに制限するには、0上記を目的のサイズに変更します。
しません
BSD::Resource を使用します。setrlimit(RLIMIT_CORE, 0, 0);
もっと簡単に？