Alex 'CAVE' Cernat wrote:
>
>>
>> use Net::Server::PreFork; # documented on cpan
>> La workeri le dai de munca pe un socket.
>> Probabil nu e chiar ce vrei tu dar se apropie.
>>
> nu trebuie mers chiar asa de departe; pot linistit sa fac fork la
> fiecare lansare, overhead-ul generat in cazul meu nu e semnificativ; am
> auzit de net:server:prefork dar nu prea cred ca e cazul meu, ma complic
> mai rau cu socketi
>
> Alex
Exemplu simplu de fork in perl:
$forks = 0;
while (($id,$url,$name) = $sth->fetchrow_array)
{
if($forks<41)
{
$pid = fork();
if($pid==0)
{
writetofile($url,$id,$name);
exit;
}
else
{
$forks++;
}
}
else
{
wait();
$pid = fork();
if($pid==0)
{
writetofile($url,$id,$name);
exit;
}
}
}
Ma indoiesc ca in bash poti sa faci asa ceva.
_______________________________________________
RLUG mailing list
[email protected]
http://lists.lug.ro/mailman/listinfo/rlug
