perl - 使用 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 )