lordbsd
18-05-2008, 09:38 AM
ภาษาเพิลวันนี้ ขอเสนอ การโหลด URL มาเซฟไว้ในเครื่องของเรา
เหอๆ แค่ใช้ LWP ก็ได้แล้วสินะ แต่มันไม่ใช่แค่นี้หรอก
วันนี้เสนอสิ่งที่เทพกว่านั้น เพราะมันจะแสดง indicator ด้วย
ราวกับ WGET เลยล่ะ
แต่ indicator วันนี้ จะนับเลขให้ดูเฉยๆ ถ้าจะปรับแต่ง ก็ไปแก้ๆ เอาเองนะ
แต่ผมว่าแค่นับเลขให้ดู ก็เทพแล้ว จะเอาไรนักหนา
โปรดจดจำ code นี้ไว้ให้ดี เพราะผมจะใช้ loadpic
อิอิอิ กับการโหลดสาว hi5 น่ะเอง *0*
ภาคต่อไป จะ parse XML ให้ดู วันนี้เอาโหลดภาพไปเล่นก่อน
[hide=5][code]
#!/usr/bin/perl
use strict;
use LWP;
use HTTP::Cookies;
$| = 1;
### PREPARE BROWSER ###########
my $bw = LWP::UserAgent->new();
$bw->proxy("http://127.0.0.1:3128"); ## You can comment this
$bw->cookie_jar(HTTP::Cookies->new(
เหอๆ แค่ใช้ LWP ก็ได้แล้วสินะ แต่มันไม่ใช่แค่นี้หรอก
วันนี้เสนอสิ่งที่เทพกว่านั้น เพราะมันจะแสดง indicator ด้วย
ราวกับ WGET เลยล่ะ
แต่ indicator วันนี้ จะนับเลขให้ดูเฉยๆ ถ้าจะปรับแต่ง ก็ไปแก้ๆ เอาเองนะ
แต่ผมว่าแค่นับเลขให้ดู ก็เทพแล้ว จะเอาไรนักหนา
โปรดจดจำ code นี้ไว้ให้ดี เพราะผมจะใช้ loadpic
อิอิอิ กับการโหลดสาว hi5 น่ะเอง *0*
ภาคต่อไป จะ parse XML ให้ดู วันนี้เอาโหลดภาพไปเล่นก่อน
[hide=5][code]
#!/usr/bin/perl
use strict;
use LWP;
use HTTP::Cookies;
$| = 1;
### PREPARE BROWSER ###########
my $bw = LWP::UserAgent->new();
$bw->proxy("http://127.0.0.1:3128"); ## You can comment this
$bw->cookie_jar(HTTP::Cookies->new(