在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