🚀 go-pugleaf

Nitro wrote:

> ik weet niet of ik iets mis doe, maar mijn threads in perl doen raar.
> 
> ik heb een heel simpel programmake da iets moet afprinten (2 threads,
> 2 strings), maar ze komen maar om de beurt.
> 
> En na ne tijd quit da programma van zelf, wat mij ook ni normaal
> lijkt? 
> 
> Mijn code:
> 
> #!/usr/bin/perl -w

Gebruik liever:

use warnings;

ipv -w

> use strict;
> use threads;
> 
> my $t1 = threads->new( sub { thread("aaaaa")});
> my $t2 = threads->new( sub { thread("bbbbb")});
> 
> sub thread() {

waarom gebruik je () (prototyping) ?

>     my $s = $_[0];

Ik geef de voorkeur aan:

my ( $s ) = @_;

Handig als je later nog eens een parameter extra nodig hebt, of

my $s = shift;


>     while(1 > 0) {

while (1) {

(leesbaarder)


>         print($s."\n");

( niet nodig, en je kan dus dit doen:

print "$s\n";

Overigens is s geen handige naam voor een variabele


> #        sleep(5);
>     }
> }
> 
> Ik heb al met detach geprobeerd ook, maar da helpt ni.
> 
> Als ik die sleep uitcomment, dan runt elke thread 1 keer (ene print
> dus) en quitten ze direct, waarom???

Heb je mazzel. Je start twee threads, en vervolgens exit je programma.
Wat had je dan verwacht? 

Zet eens na die twee my's een sleep(10000) :-)

-- 
John Bokma
                 Voorbeeldscripts in Perl: http://johnbokma.com/perl/
Ervaren Perl / Java programmeur beschikbaar:  http://castleamber.com/
Tevreden opdrachtgevers:     http://castleamber.com/testimonials.html