perl - 在 Perl 中使用 expect，如何使用 $object->expect() 方法添加忽略大小写的选项？

Question

这是在 perldoc 中找到的示例：

  $object->expect(15, '-re', "$str");

我想在比赛中添加选项“i”。这不起作用：

$object->expect(15, '-re', qr/$str/i);

我是否必须使用这种格式：

 $exp->expect($timeout, [ qr/$str/i, sub {}], $shell_prompt);

Answer 1

您可以将指令嵌入到正则表达式本身：

$object->expect(15, '-re', "(?i)$str");

参考： http: //perldoc.perl.org/perlre.html#Extended-Patterns