ใช้ PERL โหลดรูปสาวๆ ใน hi5 เวอชั่นแรก

[lordbsd]

หวัดดีคัฟ พี่เอง ก็เขียน PERL ได้พอสมควร
ก็เขียนบอทเกมส์ออนไลน์ด้วย perl มาแล้วง่ะ

ปัญหา : มีสาวสวยใน hi5 เยอะ และรูปพวกเธอก็เยอะชิหายเลย
การไปนั่งคลิก มันเสียเวลามาก เมื่อยมือ เมื่อยตา
และรูปเด็ดๆ มักไปอยู่ใน slide.com กับ picturetrail อีกด้วย
จะไปนั่งค้นจาก cache ก็รำคาญอ่ะนะ มันต้องสวยจริงๆ ถึงจะอยากทำยังงั้น

โอเค พี่โตเลยเขียนภาษา perl ขึ้นมา ใช้ lib ของ LWP
ส่วน CODE ก็โหลดเอาเลยคัฟ ที่...

**Hidden Content: To see this hidden content your post count must be 10 or greater.**

ระบบที่รันได้คือ Windows / ActivePerl
ส่วน linux ยังไม่ได้เทสครับ

ก่อนอื่นต้อง new folder ชื่อ girlhtml และ girlpics เสียก่อน
มันจะเอาไฟล์ไปเก็บในนั้นแหละครับ

ส่วนใครจะต่อยอด ทำ hi5 บอท ก็เอาเลยครับ อิอิ

โปรแกรมนี้ รองรับการใช้ proxy ด้วยนะคัฟ เทพมากๆ เขียน 1 วันเต็มๆ อิอิ

[windows98SE]

เขียน code สวยดีท่าน
อ่านง่ายเข้าใจง่ายดี


สำหรับคนที่อยากจะเริ่มเขียน perl

ให้แยกทำความเข้าใจทีละ block

sub [อะไรก็ว่าไป] {
block
}

ตรงส่วน regex ใช้ ! ได้นะท่าน จะง่าย ในการ ตรวจจับขึ้นเยอะ

เช่น
if ($line =~ /http:\/\/(\S+)\.hi5\.com \-/) {
เปลี่ยนเป็นใช้
if ($line =~ m!http://(\S+).hi5.com -!ig) {
หรือ
$grap = 'http://(\S+).hi5.com -';
if ($line =~ /$grap/){

ผมว่า สะดวกขึ้นอีกนิดในการคิด regex
[แค่แนะนำมือใหม่ น่ะคับ ไม่ได้คิดจะสอนเน้อ]

ปล. ไอ้ที่ว่า 1 วันนี้ นั่งดัก content อ่ะจิ อิอิ

[lordbsd]

อัพเดทอีกนิสนึง ตอนนี้เพิ่มคุณสมบัติ รับ agrument จาก commandline ได้
และเพิ่มคุณสมบัติ slide.com ทุกอัน ที่ไมได้เอามาแสดงใน hi5 อีกด้วย
และแก้บั๊กที่โหลดภาพไม่ได้อีกหลายจุด
โหลดซอสจากที่เดิมเรยคัฟ

ทำการล๊อกอิน พิมพ์
./savehi5.pl login

ทำการดูดภาพ พิมพ์
./savehi5.pl 67112030

ตัวอย่างเป็นของน้องแพร ก็น่ารักดี ภาพจาก slide ของน้องแพร ก็จะถูกดูดมาหมดเรย

เวอชั่นต่อไป กำลังพัฒนาตัว Adder เอาไว้ Add สาวๆจากลิสจองเพื่อน รวมทั้งกระเทยที่แปลงเพศแล้วด้วย

[lordbsd]

จริงอย่างที่ MaxMa ว่าไว้
อาจจะมีการโพสเลขสาวเด็ดมาให้ดูกัน
วันนี้คับ เด็ดจริงๆ ไม่งั้นไม่อยากโพส

137733859

เปิดเว็บนี้ แล้วใส่เลขคัฟ
http://www.lordbsd.net/hi5id.php

อนาคต อาจจะทำ downloader โฮ่ๆ

[justtalk]

ขอคุณครับ

ไม่ทราบว่าพอมีเว็บที่สอน Perl แบบระเอียดๆ บ้างไหมครับ
หรือว่า เป็น E-book ก็ได้ครับ (ถ้าได้เป็นภาษาไทยก็จะดีมากๆครับ)