作者appleboy46 (小惡魔)
看板Perl
標題[問題] POST 傳值到 Orz.tw 縮短網址
時間Sat Jul 5 15:15:37 2008
底下是我的程式要縮短網指的部份：
#!/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
1F：→ weiyucsie:其實有 WWW::Shorten::0rz 雖然我沒用過XD 07/05 15:22
2F：→ weiyucsie:也許可以使用或參考... 07/05 15:22
3F：→ appleboy46:XD Orz 07/05 15:37