Разбор ссылок с Perl regex

Question

Я разбираю веб-сайт с WWW :: Механизируйте загрузку некоторых изображений. Мне нужно заполнить массив всеми ссылками, связанными с разрешениями, доступными для данного изображения. Но мне нужно заполнить только ссылками, которые равны или меньше «1440x900», но я не уверен, где это сделать. Я пытался это:

my @resolutions = map {$_->url} grep {$_->url =~ /$_[0]-\d{4,4}x\d{3,4}/} $mech->find_all_links(); 

Как я могу сделать, что проверка только получить изображения равна или меньше, чем «1440x900»?

tnx заранее!

Edit:

Я не могу использовать find_all_images метода меха, потому что они заканчиваются на .html. Например, ссылки таковы:

http://www.wallpaper.com/view/some_image-2560x1600.html 

сразу после этого ссылки, что у вас есть изображение .jpg.

Answer 1

use 5.014; 
for my $link ($mech->find_all_links(url_abs_regex => qr/\d+x\d+\.html$/a)) { 
    my ($w, $h) = $link->url =~ /(\d+)x(\d+)/a; 
    if ($w <= 1440 && $h <= 900) { 
     # do something 
    } 
}