[問題] POST 傳值到 Orz.tw 縮短網址
底下是我的程式要縮短網指的部份:
#!/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
07/05 15:22, 1F
→
07/05 15:22, , 2F
07/05 15:22, 2F
→
07/05 15:37, , 3F
07/05 15:37, 3F
討論串 (同標題文章)
以下文章回應了本文:
完整討論串 (本文為第 1 之 3 篇):