Отправляет email-рассылки с помощью сервиса Sendsay

Re: timeout

так

Bojus' programku pridjotsja pisat'.
Kak naschjot perl:

#!/usr/bin/perl
die "Usage: [cmd] [time]" if @ARGV!=2;
$cmd = $ARGV[0];
$time = $ARGV[1];
if (($pid = fork())>0) {
sleep($time);
$kid = waitpid($pid, WNOHANG);
if (!$kid) {
kill 9, $pid;
}
} elsif ($pid==0) {
exec "$cmd";
} else {
die "fork() failed";
}

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.linux.discuss-list@subscribe.ru
Отписаться: http://subscribe.ru/member/unsub?grp=comp.soft.linux.discuss&email=
http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Fri, 24 Oct 2003 14:45:43 +0300 (#11450)