🚀 go-pugleaf

On Mon, 18 Oct 2004 22:47:36 +0000, John Bokma wrote:

> 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) :-)

Ok, dit werkt idd. Bedankt. Ook bedankt voor de andere tips. Ik ben nog
niet zo vlot met perl, maar dit was maar een testprogrammaatje, vandaar
die $s enzo.

Wat bedoel je hiermee?
> waarom gebruik je () (prototyping) ?

En eigenlijk had ik verwacht dat mijn hoofdthread mooi ging stoppen, maar
dat de andere bleven doordoen tot ook zij hun stop tegenkwamen (nooit dus).

Dit zal wel eerder aan mijn rededering/wakkerheid liggen dan aan iets
anders :)

Nitro