作者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