如何在Perl中grepstring

如何grep perl中的string。

variablessessionWeb包含一个网页html代码。 我想从这里grep“活跃的会议”，并希望打印如下。 例如，网页中的行将是

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

预期产出：

• 我想从程序的输出中滤出两行
• 用awk和grep从apache日志中获取一些意义
• grep命令从文件中提取数据
• 将grep结果用“：”作为字段分隔符来awk
• 在grep正则expression式中转义特殊字符

2个活动会话。

我试过下面的代码，但它不工作？

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

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