Net :: Google :: Spreadsheets 500 error, что я делаю не так? - PullRequest
Новая
       22

Net :: Google :: Spreadsheets 500 error, что я делаю не так?

2 голосов
/ 10 августа 2011

Я пытаюсь использовать Net :: Google :: Spreadsheets для работы с электронной таблицей Google Docs (примечание: вы, возможно, видели мой предыдущий вопрос, где я пытался работать изнутри Google Docs, сейчас Я пытаюсь под другим углом)

Я пытаюсь привести пример прямо из perldoc: 

     #!/usr/bin/perl
     use strict;
     use warnings;
     use Net::Google::Spreadsheets;

     my $service = Net::Google::Spreadsheets->new(
       username => 'my.email@gmail.com',
       password => 'mypassword'
     );

     my @spreadsheets = $service->spreadsheets();

     # find a spreadsheet by key
     my $spreadsheet = $service->spreadsheet(
       {
          title => 'Perl Test' # This is a spreadsheet I manually created already
       }
     );

     # find a worksheet by title
     my $worksheet = $spreadsheet->worksheet(
       {
           title => 'Sheet1'
       }
     );

     my $cell = $worksheet->cell({col => 1, row => 1});

     # update input value of a cell
     $cell->input_value('new value');

Когда я запускаю свой код, я получаю эту ошибку: 

    request for 'https://spreadsheets.google.com/feeds/worksheets/tNdoUPkz7MhRAtVoBaaZVHQ/private/full?title=Sheet1' failed:
    500 Internal Server Error
    Internal Error
     at /usr/local/share/perl/5.10.1/Net/Google/DataAPI/Role/Service.pm line 96
    Net::Google::DataAPI::Role::Service::request('Net::Google::Spreadsheets=HASH(0x167ce60)', 'HASH(0x1c63ba8)') called at /usr/local/share/perl/5.10.1/Net/Google/DataAPI/Role/Service.pm line 158
    Net::Google::DataAPI::Role::Service::get_feed('Net::Google::Spreadsheets=HASH(0x167ce60)', 'https://spreadsheets.google.com/feeds/worksheets/tNdoUPkz7MhR...', 'HASH(0x1a38d58)') called at /usr/local/share/perl/5.10.1/Net/Google/DataAPI.pm line 106
    Net::Google::Spreadsheets::Spreadsheet::worksheets('Net::Google::Spreadsheets::Spreadsheet=HASH(0x1a36460)', 'HASH(0x1a38d58)') called at /usr/local/share/perl/5.10.1/Net/Google/DataAPI.pm line 119
    Net::Google::Spreadsheets::Spreadsheet::worksheet('Net::Google::Spreadsheets::Spreadsheet=HASH(0x1a36460)', 'HASH(0x1a38d58)') called at spreadsheet_test.pl line 22

А потом, если я попытаюсь открыть электронную таблицу Perl Test из Google Docs, Google сам выдаст мне эквивалент ошибки 500.

Так что я делаю не так?

...