Вот мои примеры данных с веб-страницы
This is Second line
Some Text Here
Some More Text Here
This is First line
Mem Capacity : 130.65 MB
Mem Used : 74.52 MB
Mem Available : 56.13 MB
Mem Used Percentage : 57
Я использую следующий код, чтобы извлечь такие вещи, как
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";
}
Я не получаю никакой информации. Может кто-нибудь сказать мне, где я иду не так?