使用Perl LWP发布到Google表格

时间:2015-10-20 18:38:17

标签: perl google-sheets

我想将工作表添加到现有的Google电子表格中,但是我没有走得太远。以下对我不起作用。以下POST请求是否不正确?

注意:我的工作表确实公开并在网上发布。由于能够成功获取GET请求,因此确认了这一点。

link to Google documentation

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";

1 个答案:

答案 0 :(得分:0)

通过此文档link to Google docs https://spreadsheets.google.com/feeds/worksheets/key/ 私有 / full - 是正确的网址。

请尝试将网址从https://spreadsheets.google.com/feeds/worksheets/ $ key / 公开 /完整更改为https://spreadsheets.google.com/feeds/worksheets/key/ 私有 /完整