ผู้เขียน หัวข้อ: ก๊อบรูปจากเว็บ Mthai By ICheer_No0M  (อ่าน 2409 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ Admin

  • Administrator
  • *****
  • กระทู้: 1409
  • Level:
    1.8%
  • Thank : 61
  • เพศ: ชาย
    • ดูรายละเอียด
    • สะกิดข่าว
ก๊อบรูปจากเว็บ Mthai By ICheer_No0M
« เมื่อ: พฤษภาคม 06, 2012, 11:03:33 pm »
โค๊ด: [Select]
#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";

 
แชร์บทความ...
โค้ดแบบ forum
(BBCode)
โค้ดแบบ site/blog
(HTML)