如何在perl中grep字元串

如何在 perl 中 grep 字元串。

變數 sessionWeb 包含網頁 html 程式碼。我想從中獲取“活動會話”並希望列印如下。例如，網頁中的行將是

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

預期輸出：

2 個活動會話。

我嘗試了以下程式碼，但它不起作用？

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

這應該是訣竅：

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

引用自：https://serverfault.com/questions/383686