[Chisinau-pm] Procesele in Perl

[Alexandr Ciornii]

HI!

2006/9/7, Sergiu Mihai <serhio la programmer.net>:
> Salut tuturor.
> Incerc sa clonez un proces.
> Utilizez functia standarta fork() care returneaza parintelui PID-ul fiului si 0 procesului-fiu.
> Am incercat prin teste sa inteleg cum ruleaza dar n-am mai priceput.

Мне кажется, что в принципе неизвестно, какой процесс начнёт
выполняется первым. Тебе не стоит расчитывать на определённость.
Учитывая, что ветвление производится в точке fork, я переписал программу так:
#!/usr/bin/perl -w

print "Programul parinte\n";
$a=fork();
print "PID-ul fiului este ".$a."\n";
for($i=0;$i<=5;$i++)
{
        print "$i\n";
}

Но у меня результаты каждый раз немного разные. Это неудивительно.
Правда я выполняю под Windows, а там fork реализован через потоки.

-- 
Alexandr Ciornii, http://chorny.net