Perl谷歌日曆API

Question

我寫了一個連接到Google日曆API的Perl腳本。我遇到了一些問題。

我想刪除的事件是> "15 Feb 2013"（事件有日期15 Feb 2013 onward），我找不到這個變量，有沒有人可以提醒？

Answer 1

Net::Google::Calendar是一個與Google Calendar API配合使用的現有庫。它有一個delete_entry method這似乎是你想要的。

如果我明白你問的是正確的，你想查找所有在2013年2月15日開始的事件並刪除它們？我相信這將是...

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); 
} 

使用你會使用list獲得使用時間min和timeMax尋找它的進入原始API。然後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 

在他們每個人將其刪除。

但你應該使用該模塊。