Witam,
Nie mogę znaleźć polskiego opisu lub poradnika jak używać wątków w perlu. Jeżeli taki istnieje prosił bym o link.
Ewentualnie po ang ale z bardzo prostym wytłumaczeniem znalazłem sam w tym języku kilka ale nie do końca wszystko rozumiem.
Np. Jak wywołać funkcje każdą w osobnym wątku ?
W ogóle słabo rozumie cały temat jakby nawet się tu ktoś znalazł tak miły i mi wytłumaczył.
#!/usr/bin/perl
use threads;
use strict;
my $a =0;
my $b = 100;
my $c = 200;
my $f = 300;
my $nr = 2;
my @thr = initTH();
foreach(@thr){
$_ = threads->create(\&dw);
$_ = threads->create(\&sto);
}
foreach(@thr){
$_->join();
}
sub initTH{
my @initTH;
for (my $r = 1; $r<=$nr; $r++){
push(@initTH,$r);
}
return @initTH;
}
sub dw{
my $id = threads->tid();
for($c; $c <= $f; $c++){
print $c."\n";
}
print "Threads $id done!\n";
threads->exit();
}
sub sto{
my $ii= threads->tid();
for($a; $a <= $b; $a++)
{
print $a."\n";
}
print "Threads $ii done!\n";
threads->exit();
}