Como grep string em perl [closed]

Question

Como grep a string em perl.

SessionWeb variável contém um código html de página da web. Eu quero grep "Sessões ativas" deste e quero imprimir como abaixo. Por exemplo, a linha na página da web será

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

Resultado esperado:

2 sessões ativas.

Eu tentei o seguinte código, mas não está funcionando?

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

    

Answer 1

Isso deve ao truque:

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