simple usage Time::HiRes of the 'for execution time of child process

Hi All

some times we are required to control the time execution of the child sub program. This can be achieved use the  Time::HiRes



I have added the code snippet. Here  I have line the main program (line 9 ) to sleep for 30 sec.
But setup alarm timeout to 3 sec (line 4)  and trigger timeout after 3 sec and setup local variable $SIG{ALRM} to time out/

	use Time::HiRes;
	eval {
	my $timeout = 3;
	local $SIG{ALRM} = sub { die "timeout\n" };
	Time::HiRes::alarm($timeout);
	# u can add the program that will get time
	#here I have added the sleep command.
	sleep(30);
	Time::HiRes::alarm(0);
	}
	if ($@ = ~/timeout/) {
	print "program ran out of time";
	}

view raw timeout_perl.pl hosted with ❤ by GitHub