Perl正则表达式不起作用

Question

我想写一个这样的正则表达式:(这就是我目前所拥有的） （$line是一个字符串）

$lhs = "E";
unless ($line =~ /^*\s\Q$lhs*\s[->]*\s\Q$lhs/) {
...
}

在正则表达式中，这就是我要找的东西：

在字符串的开头，0或更多空格后跟$lhs后跟0或更多空格，后跟字符-或>（可能是多次，例如{ {1}}）后跟0或更多空格，后跟---->>>。

它显然不起作用，但我怎样才能使它工作？

谢谢！

Answer 1

我找到了答案：

$line =~ /^\s*$lhs\s*[->]*\s*$lhs/

非常感谢Marc B的帮助！