perl imageshack img stealer

Code:

foreach my $number ("0" .. "100") {
#Url to search images on.
my $url = "http://img301.imageshack.us/my.php?image=$number.jpg";

#Request webpage
$mech->get( $url );

#Search for links containing .jpg or .jpeg extensions
#in the url.
#Everything in between qr/ / is what to search for
#The . means any character usually but we use \ to escape it
# and make it literal. Then we did (jpe?g) which means to search for
#the text jpg or jpeg.
# The $ character means the end of the line/string.
# The i at the end means make everything case insensitive
 
my $link;
if ($link = $mech->find_link(tag => "a", url_regex => qr/\.(jpe?g)$/i)) {
    $mech->get($link);

    my $lurl = $link->url;
   
    #Take done.php?l=img301 out of the URL and replace with img301/
    $lurl =~ s/done\.php\?l\=img301\//img301\//;
   
    #Save image to file
    $mech->get( $lurl, ":content_file" => "$number.jpg");
}
else {
    print "Image $number.jpg not found\n";
   }
}

it's suppose to take images from imageshack, but i put an error somewhere to test it and i took to many $links out so now it works, but it gets errors every so often. If you want to fix it post the new code. If not, you can use it put it won't work every time you try and run it.

run ---> Via - perl

 

By 'steal', do you mean just recapture the image and save on local server?

 

exactly.

 

Hm. Thanks, this could come in handy sometime.

Cheers .