Глобальные переменные и fork

[Wells]

Есть глобальная переменная. Как из процесса-потомка, вызванного через fork, записать в неё какое-то значение? (Всё под Windows)

[NeoNox]

А в чем загвоздка?

[Wells]

Есть следующий код:

Код: [Выделить]


use strict;
use Benchmark;
my $tmStamp1 = new Benchmark;
#/////////////////////////////////////////////////////////////////////////////////
$| = 1;
my $threads = 5;
my @pids;
my $isExit = 0;
#/////////////////////////////////////////////////////////////////////////////////
for (1 .. $threads) {
makeChild();
}
print "$isExit\\n";
for (my $i = 0; $i <= ($threads-1); $i++) {
print "$pids[$i]\\n";
waitpid($pids[$i], 0);
}
print "$isExit\\n";
#/////////////////////////////////////////////////////////////////////////////////
my $tmStamp2 = new Benchmark;
my $tmDiffer = timediff($tmStamp1, $tmStamp2);
print timestr($tmDiffer);
#/////////////////////////////////////////////////////////////////////////////////
sub makeChild {
my $pid;
die "fork: $!" unless defined ($pid = fork);
if ($pid) {
push(@pids,$pid);
return;
}
else {
my $i = 0;
for ($i; $i<=10 ; $i++) {
Time::HiRes::sleep(1.0);
}
$isExit = 1;
exit(0);
}
}
#/////////////////////////////////////////////////////////////////////////////////

Так вот $isExit не меняется перед выходом из скрипта

[NeoNox]

Wells а с какой радости он должен меняться?
Вместо того что-бы вываливать кучу ненужного кода разобрался бы в сабе с fork.

[NeoNox]

Вот тебе для внекласного чтения:
use IO::Handle;
use strict;
my ($line, $pid);
autoflush STDOUT;

if ($pid = open(CHILD, "-|")) {
    chomp($line = <CHILD>);
    print $line;
    close(CHILD);
} else {
    die "cannot fork: $!" unless defined $pid;
    print STDOUT "4"; #This value will be sent to $line
    exit;
}

[Wells]

Если бы я сам мог разобраться - сюда не писал бы!!!!
To NeoNox: твой код выдаёт:
\'-\' is not recognized as an internal or external command,
operable program or batch file.
P.S. И какой это я "ненужный" код "вывалил"? Я "вывалил" свой скрипт! И всё!

[arto]

perldoc perlipc

[NeoNox]

Wells

Wells:
И какой это я "ненужный" код "вывалил"?

У тебя непонимание принципа fork.
Строки c 1 по 23 не имеют к твоей проблеме ни малейшего отношения.
Читать
perldoc -f fork
perldoc perlipc
до того как применять мое решение.

Wells:
To NeoNox: твой код выдаёт:

Да, я не учел что ты под виндовсом.
Вот исправленный вариант:
use IO::Handle;
use strict;
pipe(READER, WRITER);
autoflush WRITER;
my ($pid,  $line);

if ($pid = fork) {
    close WRITER;
    chomp($line = <READER>);
    print $line;
    close READER;
    waitpid($pid,0);
} else {
    die "cannot fork: $!" unless defined $pid;
    close READER;
    print WRITER "4"; #This value will be sent to $line
    close WRITER;  # this will happen anyway
    exit;
}

[Wells]

To NeoNox: Всё работает! Спасибо! Только я вот не зря весь кусок кода вывалил. У меня там есть цикл, в котором 5 раз вызываются потомки. Так вот, как в конце проверить записал потомок что-то или нет? С одним потомком всё работает! А как с пятью быть???

[NeoNox]

Ну так напиши, в чем проблема?
Или мне все за тебя написать?

[Wells]

To NeoNox: Я понимаю - ты профи и для тебя это туфта, но у меня ничерта не получается! Вот так не работает:

Код: [Выделить]


use IO::Handle;
use strict;
my $threads = 5;
pipe(READER, WRITER);
autoflush WRITER;
my ($pid,  $line);
my $threads = 5;
for (my $i = 1; $i <= ($threads); $i++) {
if ($pid = fork) {
    close WRITER;
    chomp($line = );
    #print $line;
    close READER;
    waitpid($pid,0);
}
else {
    die "cannot fork: $!" unless defined $pid;
    close READER;
    print WRITER "4"; #This value will be sent to $line
    close WRITER;  # this will happen anyway
    exit;
}
}
print $line;


[NeoNox]

Лень это хорошо, но понимание сути вопроса - еще лучше.
Перенеси
pipe(READER, WRITER);
autoflush WRITER;
внутрь цикла.

[Wells]

В том то и вопрос, что если в процессе потомке что-то делать, то распаралеливание процессов не получается. Например если в ветку else засунуть

Код: [Выделить]


my $i = 0;
for ($i; $i<=10 ; $i++) {
   Time::HiRes::sleep(1.0);
}

то весь скрипт выполняется в пять раз дольше!!!

[NeoNox]

Wells правильно. а ты что хотел от так написанной программы?
Напиши на бумаге логику что должно произойти, а потом напиши это на Perl. Будут вопросы, сначала полностью логику сюда, а потом будем разбираться дальше.

[NeoNox]

1. читаем вдумчиво perldoc -f fork
2. пишем комментарий к каждой строчке в твоей программе