If you know you'll be running on a linux system you could look at getrlimit(2) and setrlimit(2). Assuming that syscall.ph has been correctly h2ph'd you should be able to get this to work from within perl. All you'd need to do then is to set your RLIMIT_CPU to, say, 1 second and your script will be killed by the kernel if it uses more than that.

The advantage is that it's dependent on how much CPU time your script uses. If the server is busy with some other process your script may run for a lot of wall-clock time, but it will not be killed prematurely.

The same functionality no doubt exists in other systems, but this is not going to be the most portable implementation in the world.

We used this to good effect within the suexec wrapper for Apache - at the same time you can prevent memory hogs and fork() bombs, and it applies to all CGI scripts on the server.

In reply to Re: Re: Re: Re: Perl infinite loops! by Anonymous Monk
in thread Perl infinite loops! by silicon39

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.