-
จากรูปนะคับ
http://img247.imageshack.us/img247/7790/55717219de6.jpg
ผมส่งค่า $ua->post(link ที่ 8 ในรูป) ไปให้ server ได้ (ด้วย perl)
ซึ่ง server จะส่งค่า header (location) กลับมา (เพื่อที่จะให้เราเปิด link ที่ 9)
ซึ่งตรงนี้ ค่าใน $ua->res->is_success จะเป็น link ที่ 9(ใน perl) เพราะ perl redirect เอง
แต่ผมไม่ได้ ส่งค่า get (link ที่ 9) คืน server ซึ่งมีผลเท่ากับ ยังส่งไม่สำเร็จ
ดังนั้น จะทำไง ถึงจะแกะค่า res->header ออกมาได้อ่ะคับ ??
ปล. อ่านใน google มาเยอะพอสมควรแต่คิดว่ายังไม่ตรงจุด
-
[code]use strict;
use LWP;
use HTTP::Cookies;
my $bw = LWP::UserAgent->new();
### enable relocation for GET / POST
# $bw->requests_redirectable(['GET','POST']);
### ไม่ให้เพิล redirect เอง ก็จะมองเห็น Location:
$bw->requests_redirectable([]);
my $resp = $bw->get("http://www.dsi.go.th");
print
