2 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl -w
use strict;
use threads;
my $t = new threads \&sub_to_run;
$t->detach();
if ($name eq "rudi"){
#BEENDE DEN THREAD $t !!!
kill($t->tid); ???
}
...
$t->kill('KILL')->detach();
2 Einträge, 1 Seite |