在Perl中使用expect，如何使用方法$ object-＆gt; expect（）添加忽略大小写的选项？

Question

这是perldoc中的示例：

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

我想添加选项＆＃39; i＆＃39;到了比赛。这不会起作用：

$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