Thread Block starten ohne auf Rückgabe zu warten (5 answers)
Opened by Kean at 2015-08-31 18:38

Kean
 2015-09-01 10:53
#181995 #181995
User since
2004-08-18
463 Artikel
BenutzerIn

user image
Ok dann ist das wirklich logisch. Für meine Zwecke aber nicht zu gebrauchen.

Ich mit Threats folgendes Beispiel zusammen gebastelt, was scheinbar funktioniert:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

use strict;
use warnings;
use Tk;
use threads;

my $cnt = 0;

my $mw = MainWindow->new();

$mw->Button(    -text => 'print',
                                -command => sub {       my $time = localtime();
                                                                        $cnt++;
                                                                        threads->new(\&print_bon, $cnt, $time);
                                                                },
                                )->pack(-anchor => 'center', -pady => '2');     

MainLoop;                               
                                
sub print_bon
{
my $cnt = shift;
my $time = shift;
sleep rand(10);
print "Ausdruck $cnt ($time)\n";
}


Oder gibt es dabei einen Nachteil/etwas zu beachten?

View full thread Block starten ohne auf Rückgabe zu warten