使用perl中的WWW :: Mechanize模块从网页中提取一行

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）