如何在 perl 中 grep 字符串

Question

如何在 perl 中 grep 字符串。

变量 sessionWeb 包含网页 html 代码。我想从中 grep“活动会话”，并打印如下内容。例如，网页中的行将是

"2 active Sessions, 0 passivated Sessions (more stats...)"

预期输出：

2 个活跃会话。

我尝试了以下代码但它不起作用？

 $sessionStr="active Sessions";
     $sessionCount =~ grep( /$sessionStr/,$sessionWeb);

Answer 1

这应该是诀窍：

if ($sessionWeb =~ /(\d+ active Sessions)/) {
  print $1."\n";
}