Re: nice perl

[stap@xxxxxx (Jan Stap)]

Hoi Hans,

Lang niet gesproken! _Het_ antwoord heb ik niet, maar voor de "botte"
methode weet je via getrlimit() in ieder geval tot hoever je moet 
doorlopen (hier in C):

  if (getrlimit(RLIMIT_NOFILE, &flim) < 0) perror("getrlimit");
  for (fd = 0; fd < flim.rlim_cur; fd++) close(fd);

Zou in Perl via POSIX::getrlimit moeten werken. Succes!

Groeten,

Jan

On Tue, Sep 27, 2005 at 09:56:25PM +0200, Hans Lambermont wrote:
> Hoi, voor degenen onder ons die zich vervelen :-P hier een leuk perl
> vraagstuk. Ik wil alle file descriptors sluiten die ik van m'n parent
> geerfd heb (dit om een onaangenaam proces dat zich niet netjes gedraagt
> in een fd-vrije omgeving als daemon te laten draaien).
> 
> Ik weet dat bv. een rpm scriptlet een fd 11 aanbiedt, en heb problemen
> gezien tussen 7 en 21. Ik kan natuurlijk botweg POSIX::close draaien
> voor alles in deze reeks, maar ik doe het liever netter; ik wil weten
> *welke* filedescriptors ik geerfd heb van m'n parent. Dat zou toch niet
> moeilijk moeten zijn. Ik wil een oplossing in perl zelf, dus niet in
> /proc/self/fd rondneuzen (is ook niet portable).
> 
> Wie ?
> 
> Hans Lambermont
> -- 
> http://hans.dse.nl/   () ASCII-ribbon campaign against vCards,
>                       /\ HTML-mail and proprietary formats.
> 
> -- 
> To UNSUBSCRIBE, email to people-request@xxxxxxxxxx with a subject of
> "unsubscribe". Trouble? Send an email with subject "help" to
> people-request@xxxxxxxxxx