perl - perl の WWW::Mechanize モジュールを使用して Web ページから行を抽出する

Question

ここにウェブページからの私のサンプルデータがあります

<hr>
<h4>This is Second line</h4>
Some Text Here<br>
Some More Text Here<br>

<h4>This is First line</h4>
Mem Capacity : 130.65 MB<br>
Mem Used : 74.52 MB<br>
Mem Available : 56.13 MB<br>
Mem Used Percentage : 57<br>

次のコードを使用して、次のようなものを抽出しています

Mem Capacity : 130.65 MB
Mem Used : 74.52 MB
Mem Available : 56.13 MB
Mem Used Percentage : 57

コードは次のようになります。

#!/usr/bin/perl
 use WWW::Mechanize;

 $mech = WWW::Mechanize->new();
 $url = 'some url';
 $result = $mech->get( $url );
 $content = $result->as_string();
 print $content;
 if($content =~ /Mem Capacity :([\d.]+)/)
 {
 $value = $1;
 print "Memory Capacity $value MB n";
 }

出力が得られません。どこが間違っているのか教えてもらえますか?

Answer 1

これを試してください - if($content =~ /Mem\s*Capacity\s*:\s*(\d+(.\d+)?)/i )