อ่าน Naruto 700 แปลไทย, อ่าน One Piece 782 แปลไทย, อ่าน Bleach 622 แปลไทย, อัพเดทข่าวประจำวันและข่าวไอที โหลดเพลง โหลดโปรแกรม คำคมโดนๆ
SMF & Programmer => Programmer => ข้อความที่เริ่มโดย: Admin ที่ พฤษภาคม 06, 2012, 11:03:33 pm
-
#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";