Ben's

perl script timeout 본문

리눅스/perl

perl script timeout

Ben Ko (SINCE 2013) 2013. 1. 21. 15:38
728x90

use strict;
#
$SIG{ALRM} = sub {
  print "UNKNOWN: Script timed out\n";
  &do_page("nhkotest-002=>check failed - script timeout");
  exit -1;
};

# Start the timer to script timeout
alarm(55);