Ok let me explain it clearer. i've a main perl program which loops and execute commands (run's as a daemon), so when i execute with `cmd....` system and so so on i become zombies...... excample prog what i call
test.pl #!/usr/bin/perl $status='OK'; print $status; 1; test2.pl #!/usr/bin/perl $status='124455566345'; print $status; 1; so here i get zombies, problem is i need the print $status; in daemon.pl, that can be ascii strings or numerics.... daemon.pl #!/usr/bin/perl while(1){ my $command='test1.pl or test2.pl'; my $status; eval { local $SIG{ALRM} = sub { die("dead\n"); }; alarm 2; my $status=`$command`; alarm(0); # turn off the alarm clock }; if($@){ if($@ eq "dead\n"){ $status='Timeout'; }else{ chomp($status); } } #do something with my $status..... sleep(5); }
In reply to Re^2: Need Function for Timing out shell commands
by Anonymous Monk
in thread Need Function for Timing out shell commands
by bae11208
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |