usr bin perl use LWP Simple url http a-gaming ru data get url images_l

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl
use LWP::Simple;
$url = "http://a-gaming.ru";
$data = get($url);
@images_links = ();
# 1) '/img/bt_forum_a.jpg'
# 2) <img src="/img/bt_demos.jpg"
while ($data =~ m/(\'|\")\/img(.*?\.(gif|png|jpg))(\'|\")/ig){
print $url . $2 . "\n";
push(@images_links,$url . $2);
}
foreach $image (@images_links){
.......
}