4

Поясняю:

print "Введите команду:\n";
chomp ($kom = >STDIN>);
if ($kom = <условие>)
{
   оператор 1;
   оператор 2;
}
else
{
   оператор 3;
}

И чтобы при выполнении любой ветки ветвления, скрипт продолжал ожидания ввода команды и не дожидаясь завершения первой начинал выполнять условие второй? Спасибо.

2
  • называется это fork или select мб подойдет... (правда с stdin я не уверен)
    – zb'
    30 мар 2013 в 3:05
  • Спасибо. Попробую.
    – Asid
    30 мар 2013 в 3:44

2 ответа 2

1

Можно запускать новый процесс для выполнения каждой введённой команды:

while (<STDIN>) {
    chomp();

    next if $_ eq '';
    last if $_ eq 'exit';

    fork() and next;

    # тут обрабатываем введённую команду

    exit();
}

Если по окончании цикла ввода надо дождаться окончания обработки всех введённых команд, можно сделать так:

use POSIX ':sys_wait_h';

my %children;

while (<STDIN>) {
    chomp();

    next if $_ eq '';
    last if $_ eq 'exit';

    my $pid = fork();

    if ($pid) {
        $children{$pid} = 1;
        next;
    }

    # тут обрабатываем введённую команду

    exit();
}

# ждём окончания всех процессов обработки
while (keys(%children)) {
    for (keys(%children)) {
        my $ret = waitpid($_, WNOHANG);

        next unless $ret;
        delete($children{$_}) if $ret != -1;
    }
}
0

Почитай здесь: Мини экскурс в AnyEvent - пишем паука

use AnyEvent;

$| = 1; print "enter your name> ";

my $name_ready = AnyEvent->condvar;

my $wait_for_input = AnyEvent->io (
    fh => \*STDIN, poll => "r",
    cb => sub { $name_ready->send (scalar <STDIN>) }
);

# делаем что нидь еще

# теперь ждем и подставляем данные на входе
my $name = $name_ready->recv;

undef $wait_for_input; # watcher нам больше не нужен

print "your name is $name\n";

use AnyEvent; как-то так

1
  • как событийная модель относится к вопросу ? вот к этой его части > и не дожидаясь завершения первой начинал выполнять условие второй? круто что вы знаете про AnyEvent но оно здесь не к месту.
    – zb'
    16 сен 2013 в 15:34

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.