Skip to content

Instantly share code, notes, and snippets.

View gist:a0144c062f47066b6d02ea03ceff04e0
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use LINE::Bot::API;
use LINE::Bot::API::Builder::SendMessage;
my $push_to = 'xxx'; # 送信先のグループID
View gist:feb91ef4e06ab6504ff74f92ab3c7ebc
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use feature qw/say/;
use open qw/:encoding(utf-8) :std/;
use JSON qw//;
use Time::Moment qw//;
use Google::API::Client;