使用Perl LWP发布到Google工作表

我想将工作表添加到现有的谷歌电子表格中，但距离不远。下面的内容对我不适用。下面的POST请求是否不正确

注：我的工作表确实是公开的，并在网上发布。这是由于能够成功获取请求而得到确认的

从本文档中，private/full-是正确的url

---

请尝试将url从$key/public/full更改为private/full

这真的是您运行的代码吗？由于未定义$agent，该代码失败并出现运行时异常。您缺少我的$agent=LWP:：UserAgent->new；始终严格使用；使用警告；！否则，请将实际使用的代码以及$response->as\u字符串的结果发布。如果密钥出现在输出的lrager代码体的摘录中，不要忘记混淆它。HTTP/1.1405方法不允许，然后是一堆东西。hmmm可能不允许在公共工作表上使用POST？您是否有指向API文档的链接？非主题提示：您可以使用跨行的字符串文字，因此您可以使用my$xml='。。。整个XML分布在多行上；对不起，我帮不了你。

use strict;
use warnings;
use feature 'say';
use LWP::UserAgent;

my $agent = LWP::UserAgent->new;

my $key = "some key";
my $url = "https://spreadsheets.google.com/feeds/worksheets/$key/public/full"
my $xml = join "\n", 
    '<entry xmlns="http://www.w3.org/2005/Atom"',
            'xmlns:gs="http://schemas.google.com/spreadsheets/2006">',
        '<title>Expenses</title>',
        '<gs:rowCount>50</gs:rowCount>',
        '<gs:colCount>10</gs:colCount>',
    '</entry>';

my $response = $agent->post(
    $url, 
    'Content-Type' => 'application/atom+xml', 
    'Content' => $xml
);
$response->is_success && say "OK";
$response->is_error && say "error";