[問題] POST 傳值到 Orz.tw 縮短網址

看板Perl作者 (小惡魔)時間16年前 (2008/07/05 15:15), 編輯推噓0(003)
留言3則, 2人參與, 最新討論串1/3 (看更多)
底下是我的程式要縮短網指的部份: #!/usr/bin/perl use LWP::Simple; use WWW::Mechanize; use LWP::UserAgent; my $tinurl; $url = "http://mini101.twgg.org"; my $ua = LWP::UserAgent->new; $ua->agent("Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)"); my $word = $url; my $response = $ua->post( 'http://orz.tw/create.php', [ 'url' => $word ], ); if ($response->is_success) { my $res = $response->content; print $res; } else { my $res = $response->content; print $res; } 請問一下 orz 有擋 referer 吧,因為傳過去會導向到 http://blog.orz.tw 囧~ 大家可以給我一點意見嗎? 我有加上 referer 部份 $ua->default_headers->referer("http://orz.tw"); 還是不給過~ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.123.215.42

07/05 15:22, , 1F
其實有 WWW::Shorten::0rz 雖然我沒用過XD
07/05 15:22, 1F

07/05 15:22, , 2F
也許可以使用或參考...
07/05 15:22, 2F

07/05 15:37, , 3F
XD Orz
07/05 15:37, 3F
文章代碼(AID): #18Rn-RKn (Perl)
文章代碼(AID): #18Rn-RKn (Perl)