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