Rapidshare API - Perl脚本

时间:2012-05-12 19:39:41

标签: perl api rapidshare

我正在尝试将Rapidshare上传脚本实施到我的项目中,但它似乎已经过时了。我总是在终端中收到以下错误:

File /home/googles/Downloads/weave_minimal.tgz has 10953 bytes. Calculating MD5HEX...
MD5HEX is 12c7dfef24eb0bb249a1f4723cd8daf6 (10953 bytes analyzed)
Trying to upload to your prem account.
Getting upload server infos.
Uploadserver invalid? Internal error!

这是脚本: http://pastebin.com/wSPWa84B

我很高兴能得到任何帮助,很快就能开始工作:)

1 个答案:

答案 0 :(得分:0)

我发现了两个问题:1。网址应为http://rapidshare.com/cgi-bin/rsapi.cgi?sub=nextuploadserver,您必须使用HTTP / 1.1连接到RS服务器。因此,用于连接RS的每一行都应如下所示:

print $socket qq|GET /cgi-bin/rsapi.cgi?sub=nextuploadserver HTTP/1.1\r\nHost: rapidshare.com\r\n\r\n|

有关HTTP / 1.1的更多信息,请参阅rfc2616

我希望这有帮助!