[mirrors/Programs.git] / perl / thr.pl

#!/usr/bin/env perl
use strict;
use warnings;
use LWP::Simple;
use threads; # ('exit' => 'threads_only');

sub alrm_sleep {
	my $thr = threads->create(sub {
		$SIG{'TERM'} = sub {
			threads->exit(0);
		};
	}
	$SIG{'ALRM'} = sub {
		$thr->kill('TERM');
	}
	alarm(3);
	$thr->join();
}

my $thr = threads->create(sub {
	$SIG{'KILL'} = sub {
		print("thread is dying\n");
		threads->exit();
	};

	print("new thread\n");
	getprint('http://192.168.2.1:2/');
	print("thread end\n");
});

$thr->kill('SIGKILL');
print("killed thread");
$thr->join();
Commit	Line	Data
21c4e167 H	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use LWP::Simple;
	5	use threads; # ('exit' => 'threads_only');
	6
	7	sub alrm_sleep {
	8	my $thr = threads->create(sub {
	9	$SIG{'TERM'} = sub {
	10	threads->exit(0);
	11	};
	12	}
	13	$SIG{'ALRM'} = sub {
	14	$thr->kill('TERM');
	15	}
	16	alarm(3);
	17	$thr->join();
	18	}
	19
	20	my $thr = threads->create(sub {
	21	$SIG{'KILL'} = sub {
	22	print("thread is dying\n");
	23	threads->exit();
	24	};
	25
	26	print("new thread\n");
	27	getprint('http://192.168.2.1:2/');
	28	print("thread end\n");
	29	});
	30
	31	$thr->kill('SIGKILL');
	32	print("killed thread");
	33	$thr->join();