perlでGoogleカレンダーに書き込み、削除

質問

恐れ入ります。perlからGoogleカレンダーに書き込んだりできるとのことで、Net::Google::Calendarというものを試してみましたがなかなかうまく行きません。情報も少なく、参考にするページなども少ないようです。別の方法でも目的が達せられればよく、どなたかご存じの方が居たらご教授いただけたらと思います。因みに失敗した記述は以下のものとなります。よろしくお願いいたします。

use Net::Google::Calendar;
$username = "***********";
$password = "***********";
$title = "テスト";
$non_default_url = "https://calendar.google.com/calendar/embed?src=***********";
my $cal = Net::Google::Calendar->new( url => $non_default_url );
$cal->login($username, $password);

for ($cal->get_events()) {
print $_->title."タイトル\n";
print $_->content->body."\nテストします\n\n";
}

my $c;
for ($cal->get_calendars) {
print $_->title."タイトル\n";
print $_->content->body."\nテストします\n\n";;
$c = $_ if ($_->title eq 'My Non Default Calendar');
}
$cal->set_calendar($c);
print $cal->id." has ".scalar($cal->get_events)." events\n";

# everything below here requires a read-write feed
my $entry = Net::Google::Calendar::Entry->new();
$entry->title($title);
$entry->content("My content");
$entry->location('Asia, Tokyo');
$entry->transparency('transparent');
$entry->status('confirmed');
$entry->start-min('2024-10-27T10:57:00-08:00');
$entry->end-min('2024-10-27T11:57:00-08:00');
$entry->when(DateTime->now, DateTime->now() + DateTime::Duration->new( hours => 9 ) );

回答No.1

luka3 · ベストアンサー

chatGPTに聞いてみたらいかがでしょう。

自分はphpでカレンダーを操作していますが、今はID・パスワードのアクセスはできなくて、OAuthしか受け付けてない認識です。

お礼

ChatGPTがあそこまで答えてくれるとは思いませんでした。有難うございました。

Powered by GRATICA