Как выполнить if-else в Perl Expect?

Question

Я использую Expect в Perl, чтобы выполнить одну задачу. После отправки команды я ожидаю либо Success, либо ERROR в качестве вывода, в зависимости от того, что мне нужно для печати в файл, говоря, что он был успешным или неудачным.

$exp->expect(30, 
    '-re', "Success", printf LOG "Successfully Deleted \n" => sub {exp_last;}, 
    '-re', "ERROR", printf LOG "Error in Deletion \n", 
); 

LOG - это дескриптор файла. Если я использую это, то даже если я получу Success в качестве результата команды send, выполняются регулярные выражения. В моем файле журнала я получаю

Error in Deletion 
Successfully Deleted 

Как это решить?

Answer 1

printf - оператор списка; первый Printf сожрет все ожидают остальные аргументы, как если бы вы сказали:

$exp->expect(30, '-re', "Success", 
    printf(LOG "Successfully Deleted \n" => 
     sub {exp_last;}, 
     '-re', 
     "ERROR", 
     printf(LOG "Error in Deletion \n") 
    ) 
); 

Так дело Успех первой ошибки печати в делеции, а затем успешно удалены. Вы должны, вероятно, вместо этого:

$exp->expect(30, 
    '-re', "Success", printf(LOG "Successfully Deleted \n" => sub {exp_last;}), 
    '-re', "ERROR", printf(LOG "Error in Deletion \n"), 
); 

за исключением того, что нет никаких оснований для использования Printf вместо печати там.

UPDATE: Насколько я могу понять Ожидать документы, что это не так, как вы делаете несколько шаблонов на все, и вы не должны делать:

my $which_pattern = $exp->expect(30, "Success", "ERROR"); 
if ($which_pattern) { 
    if ($which_pattern == 1) { 
     print LOG "Successfully Deleted \n"; 
    } 
    else { 
     print LOG "Error in Deletion \n"; 
    } 
} 

Нет необходимости в -rE, если вы на самом деле с использованием шаблонов вместо явных строк; не знаю, чего вы пытались достичь с помощью бит sub {exp_last;}.