#!C:/perl/bin/perl
#C ресурса где есть картинки jpg со сквозной нумерацией можете их все скачать
#
#
use LWP::Simple;
use File::Path;
$dir='/grabber_img';
if(!opendir(D,"$dir")){mkpath("$dir", 1, 0755);}
print "Your grabb-directory-$dir, input subdir\n";
$path=<>;
chomp $path;
print "Full path- $dir/$path\n\n";
mkpath("$dir/$path", 1, 0755);
print" Input Url image-directory and slesh-\"/\"\n";
print" Example-http://pupsik.ru/photo/brn/archive/\n"; 
$adr=<>;
###########################
###########################
chomp $adr;
#$adr=shift;
print "Input last numer of image\n";
$l=<>;
chomp $l;
#$l= shift;
print "TO begin saving image from ", $adr,$l,".jpg press on any key\n";
<>;

for ($i=$l; $i>0; $i--){
$url=$adr.$i.".jpg";
$name='gal3_'.$i.'.jpg';
$content=get($url);

                               open (IMG,">$dir/$name") || print "Can't open file";
                               binmode IMG ;
                               print IMG $content; close(IMG);
                               print "save \"$url\" in $name<br>\n";

}
print"Press on any key to exit!\n";
<>;
exit;







