SMF & Programmer > Programmer
ก๊อบรูปจากเว็บ Mthai By ICheer_No0M
(1/1)
Admin:
--- โค๊ด: ---#Script Save Picture From Picpost.mthai.com By ICheer_No0M :)
use LWP::UserAgent;
my $browser=LWP::UserAgent->new();
print "\t\n Script By ICheer_No0M\n\n";
print "URL : ";
chomp($url=<STDIN>);
print "\nBeginning...\n\n";
if($url=~/.*view\/(.*).*/i){system("mkdir $1");}
$content=$browser->get($url)->content;
while($content=~m/class="fullsize" rel="gallery"><img src="(.*?)\" alt="/ig)
{
$pic=$1;
$getpicture='http://picpost.mthai.com'.$pic;
my $respose=$browser->get($getpicture);
my $content= $respose->content;
$pic=~s/\///;
$pic=~s/\///;
$pic=~s/\///;
if($getpicture =~m/http:\/\/picpost.mthai.com\/pic\/(.*?)\/(.*?)\.(.*)/ig){
open OUTFILE, "> ".$1."/".$2.'.'.$3;
binmode OUTFILE;
print OUTFILE $content;
close OUTFILE;
}
print $getpicture." => Saved\n";
}
print "\nComplete...\n";
--- End code ---
นำร่อง
[0] ดัชนีข้อความ
Go to full version