Perl google calendar API

Question

Я написал скрипт Perl, который подключается к API календаря Google. Я столкнулся с некоторыми проблемами.

Я хочу удалить событие > "15 Feb 2013" (событие, имеющее дату 15 Feb 2013 onward), я не могу найти переменную для этого, мог бы кто-нибудь посоветовать?

Answer 1

Net::Google::Calendar - это существующая библиотека для работы с API календаря Google. У этого есть delete_entry method, который, кажется, является тем, что вы хотите.

Если я правильно понимаю, что вы спрашиваете, вы хотите найти все события, которые начинаются 15 февраля 2013 года и удалять их? Я считаю, что было бы ...

use Net::Google::Calendar; 

my $cal = Net::Google::Calendar->new; 
$cal->login($username, $password); 

my @events = $cal->get_events(
    start-min => "2013-02-15", 
); 
for my $event (@events) { 
    $cal->delete_entry($event); 
} 

Используя необработанный API вы используете list, чтобы получить запись с помощью TimeMin и timeMax искать его. Затем delete с использованием eventId.

https://www.googleapis.com/calendar/v3/calendars/$calendarId/events?timeMin=2013-02-15 

Получает вам список событий, а затем ...

https://www.googleapis.com/calendar/v3/calendars/$calendarId/events/$eventId 

На каждой из них, чтобы удалить их.

Но вы, вероятно, должны использовать модуль.