2016年内：青空文庫 朗読部の創部
2016年10月某日：ネットワークスペシャリスト試験
2017年04月某日：データベーススペシャリスト試験
2017年08月某日：心理学検定 2級（「統計・測定・評価」と「臨床・障害」）
Google Calendar のデータをXMLに加工して monthly.js に 流し込む
所属している草野球チームのHP制作を担当していて、「スケジュールを載せたい」という要望が来ました。数週間ぐらい前に「そういえば何かカレンダーをキレイに表示させるJSライブラリがあったよなぁ」と「monthly.js」思い出して、Googleカレンダーとこれを使って表示させることにしました。
練習場所まで全世界に公開するのも気持ちが悪いので、Googleのカレンダーは「非公開」の設定のままで、どうにか情報を取得するすべはないものかと調べると、OAuth2なGoogle Calendar API というAPIを使えばいいと載っていました。（ OAuth2じゃないAPIもあるっぽいですが、実装が複雑になるのでOAuth2の方式がいいよみたいな情報が公式ドキュメントに書かれていた。うろ覚え。）
しかし、肝心のPerlの解説がない。（仕事ではRubyがメインですが、草野球のホームページぐらいの規模ならPerlで書きたい。）ライブラリ自体は「Google::API::Client」という名前でCPANに登録されているのでこれを使うことにしました。
client_secret.json みたいなファイルをGoogle APIのページから取得すると（詳細は「celient_secret.json google」でググッて）あとは、以下のコードで、初回時のみ手動で認証してリフレッシュトークンを取得すると、それ以降はよしなにしてくれます。（ずっとアクセスを待ち受ける必要があるWebアプリにも組み込めます。）
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 |
#!/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; use Google::API::OAuth2::Client; use XML::Simple (); use Cache::FileCache; use DDP; # cpanm Data::Printer してね my $myemail = 'xxx@gmail.com'; my $client_secrets_file = 'client_secret.json'; my $client = Google::API::Client->new; my $gcal = $client->build('calendar', 'v3'); my $auth_driver = Google::API::OAuth2::Client->new_from_client_secrets($client_secrets_file, $gcal->{auth_doc}); my $dat_file = 'token.dat'; get_or_restore_token($dat_file, $auth_driver); my $my_calender_id = 'primary'; my $holiday_calendar_id = 'ja.japanese#holiday@group.v.calendar.google.com'; my $cache = Cache::FileCache->new({ cache_root => '/tmp', namespace => 'calendar', }); my %cache_duration_of = ( $my_calender_id => '5s', $holiday_calendar_id => '7d', ); my $now = Time::Moment->now; my $first_day_of_month = Time::Moment->new( year => $now->year, month => $now->month, day => 1, offset => 540, # +09:00（540分） ); my $req_body = { timeMax => $first_day_of_month->plus_months(6)->to_string, timeMin => $first_day_of_month->minus_months(6)->to_string, }; my $schedule = get_or_cache_event_items($my_calender_id); my $holidays = get_or_cache_event_items($holiday_calendar_id); my @events = (@{$schedule->{items}}, @{$holidays->{items}}); print make_xml(\@events); exit; sub get_or_restore_token { my ($file, $auth_driver) = @_; if (-f $file) { open (my $fh, '<', $file) or die $!; local $/; my $access_token = JSON::from_json(<$fh>); close($fh); $auth_driver->token_obj($access_token); } else { my $auth_url = $auth_driver->authorize_uri; say 'Go to the following link in your browser:'; say $auth_url; say 'Enter verification code:'; chomp(my $code = <>); $auth_driver->exchange($code); store_token($file, $auth_driver); } } sub store_token { my ($file, $auth_driver) = @_; my $access_token = $auth_driver->token_obj; open (my $fh, '>', $file) or die $!; print {$fh} JSON::to_json($access_token); close($fh); } sub get_or_cache_event_items { my $calendar_id = shift; my $items = $cache->get($calendar_id); if ( ! $items ) { $items = $gcal->events->list(calendarId => $calendar_id, body => $req_body)->execute({ auth_driver => $auth_driver }); $cache->set($calendar_id => $items, $cache_duration_of{$calendar_id}) if $items; } return $items; } sub get_date_using_datetime { local $_ = $_[0]; s/(.+)T.+/$1/; $_; } sub get_time_using_datetime { local $_ = $_[0]; s/.+T([0-9][0-9]:[0-9][0-9]):[0-9][0-9]\+.+/$1/; $_; } sub make_xml { my $items = shift; my $data = {}; $data->{event} = (); my $i = 0; for my $item (@{$items}) { my $event = {}; my $startdate = $item->{start}{date} ? $item->{start}{date} : get_date_using_datetime($item->{start}{dateTime}); my $enddate = $item->{end}{date} ? $item->{end}{date} : get_date_using_datetime($item->{end}{dateTime}); $event->{id} = ++$i; $event->{name} = $item->{summary}; $event->{startdate} = $startdate; $event->{enddate} = $enddate; $event->{color} = '#ffb128'; $event->{color} = '#ddeeff' if $item->{organizer}{email} ne $myemail; $event->{starttime} = get_time_using_datetime($item->{start}{dateTime}) if $item->{start}{dateTime}; $event->{endtime} = get_time_using_datetime($item->{end}{dateTime}) if $item->{end}{dateTime}; push(@{$data->{event}}, $event); } return XML::Simple::XMLout($data, RootName => 'monthly', XMLDecl => '<?xml version="1.0"?>', NoAttr => 1); } |
以下のようにXMLが出力されます。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 |
<?xml version="1.0"?> <monthly> <event> <name>練習（雨天中止）</name> <color>#ffb128</color> <enddate>2016-02-14</enddate> <endtime>15:30</endtime> <id>1</id> <startdate>2016-02-14</startdate> <starttime>11:00</starttime> </event> <event> <name>試合！</name> <color>#ffb128</color> <enddate>2016-03-26</enddate> <endtime>16:00</endtime> <id>2</id> <startdate>2016-03-26</startdate> <starttime>14:00</starttime> </event> <event> <name>グランド練習</name> <color>#ffb128</color> <enddate>2016-02-20</enddate> <endtime>16:00</endtime> <id>3</id> <startdate>2016-02-20</startdate> <starttime>14:00</starttime> </event> <event> <name>練習</name> <color>#ffb128</color> <enddate>2016-02-28</enddate> <endtime>15:00</endtime> <id>4</id> <startdate>2016-02-28</startdate> <starttime>10:00</starttime> </event> <event> <name>練習</name> <color>#ffb128</color> <enddate>2016-03-06</enddate> <endtime>15:00</endtime> <id>5</id> <startdate>2016-03-06</startdate> <starttime>10:00</starttime> </event> <event> <name>練習</name> <color>#ffb128</color> <enddate>2016-03-13</enddate> <endtime>15:00</endtime> <id>6</id> <startdate>2016-03-13</startdate> <starttime>10:00</starttime> </event> <event> <name>練習</name> <color>#ffb128</color> <enddate>2016-04-03</enddate> <endtime>15:00</endtime> <id>7</id> <startdate>2016-04-03</startdate> <starttime>10:00</starttime> </event> <event> <name>練習</name> <color>#ffb128</color> <enddate>2016-03-20</enddate> <endtime>15:00</endtime> <id>8</id> <startdate>2016-03-20</startdate> <starttime>10:00</starttime> </event> <event> <name>敬老の日</name> <color>#ddeeff</color> <enddate>2015-09-22</enddate> <id>9</id> <startdate>2015-09-21</startdate> </event> <event> <name>国民の休日</name> <color>#ddeeff</color> <enddate>2015-09-23</enddate> <id>10</id> <startdate>2015-09-22</startdate> </event> <event> <name>秋分の日</name> <color>#ddeeff</color> <enddate>2015-09-24</enddate> <id>11</id> <startdate>2015-09-23</startdate> </event> <event> <name>文化の日</name> <color>#ddeeff</color> <enddate>2015-11-04</enddate> <id>12</id> <startdate>2015-11-03</startdate> </event> <event> <name>元日</name> <color>#ddeeff</color> <enddate>2016-01-02</enddate> <id>13</id> <startdate>2016-01-01</startdate> </event> <event> <name>昭和の日</name> <color>#ddeeff</color> <enddate>2016-04-30</enddate> <id>14</id> <startdate>2016-04-29</startdate> </event> <event> <name>憲法記念日</name> <color>#ddeeff</color> <enddate>2016-05-04</enddate> <id>15</id> <startdate>2016-05-03</startdate> </event> <event> <name>体育の日</name> <color>#ddeeff</color> <enddate>2015-10-13</enddate> <id>16</id> <startdate>2015-10-12</startdate> </event> <event> <name>みどりの日</name> <color>#ddeeff</color> <enddate>2016-05-05</enddate> <id>17</id> <startdate>2016-05-04</startdate> </event> <event> <name>海の日</name> <color>#ddeeff</color> <enddate>2016-07-19</enddate> <id>18</id> <startdate>2016-07-18</startdate> </event> <event> <name>勤労感謝の日</name> <color>#ddeeff</color> <enddate>2015-11-24</enddate> <id>19</id> <startdate>2015-11-23</startdate> </event> <event> <name>天皇誕生日</name> <color>#ddeeff</color> <enddate>2015-12-24</enddate> <id>20</id> <startdate>2015-12-23</startdate> </event> <event> <name>春分の日</name> <color>#ddeeff</color> <enddate>2016-03-21</enddate> <id>21</id> <startdate>2016-03-20</startdate> </event> <event> <name>春分の日 振替休日</name> <color>#ddeeff</color> <enddate>2016-03-22</enddate> <id>22</id> <startdate>2016-03-21</startdate> </event> <event> <name>こどもの日</name> <color>#ddeeff</color> <enddate>2016-05-06</enddate> <id>23</id> <startdate>2016-05-05</startdate> </event> <event> <name>成人の日</name> <color>#ddeeff</color> <enddate>2016-01-12</enddate> <id>24</id> <startdate>2016-01-11</startdate> </event> <event> <name>建国記念の日</name> <color>#ddeeff</color> <enddate>2016-02-12</enddate> <id>25</id> <startdate>2016-02-11</startdate> </event> </monthly> |
Googleカレンダーが終了時刻それ自体はイベントの期間に含めない（不等号に「＝（イコール）」が付くかどうかの違いのようなもの） のに対して、monthly.js は終了時刻それ自体をイベントの期間に含めるという違いがあるため、endtime（enddateじゃなくて）がない場合は、enddate を一日早めるという面倒な処理が追加で必要になります。（上記のコードではそれが追加されていないので注意。）
上記の面倒な処理を終えて「monthly.js」のマニュアルを読んでWebアプリに組み込むと、以下のように美しく表示できるようになります。ちなみに、高速で「月」を切り替えるとイベントが移動したり増殖したりする「monthly.js」のバグを作り終えてから発見しました。（ぎりぎりクリティカルなバグでもないかというあんばいですが…）
お疲れ様です。( ´Д｀)=3
久々の勉強会
会社から３０分ほどで行ける距離で「人工無脳と人工知能」の勉強会があったので参加しました。
「人工無脳バトル」に参加した学生の発表の後、徳永拓之氏の深層学習のお話という流れで終了。
前者では、学生が面白い人工無脳を創るには２日という期間は短すぎるように感じました。
後者では、
- ニューラルネットワーク ほぼイコール 関数
- レイヤーという言葉がどこを指すかに人によって異なることがあるので注意
- Recurrent Neural Network（RNN）を使うと時系列なデータが扱える
- Long short-term memory は RNN の一種
- 「A Neural Conversational Model」はLSTMで文生成できたよという論文
- Attention という技術（入力側のデータ（？）の一部をヒントとして見る）を 使うと精度が上がるが、どこを見るべきか決めるのが難しい
- batch normalizationを使うとdrop outが不要になって高速化できる（何を言っているのか今の自分にはわからない）
- Chainer がキレイでいいぞ！
- 深層学習でフォローすべき人を１人あげるなら @hillbig
というような知識を得ました。最後に「手を動かそう」（本を読んで分かった気にならず）とおっしゃっていて、大学生の頃に比べるとネットの技術記事を読んでもコーディングしていない自分に気づいて猛省しました。
2016年
両親自己破産＆全国模試の偏差値30台＆精神ボロボロの半壊人間状態から、頭を鍛えて、認知行動療法でいくらか精神を回復させ、10月に正社員になってここまで生きることができました。
大学院入学から2015年の9月まで学内のカウンセラーの先生に助けられすぎた。あいにく自分はカウンセラーの先生のように言葉をもって他人を助けるということが中々できないので、心理学もよく学びつつ、技術で人生に悩める誰かを助けたい。
2015年は、検定試験は、「情報セキュリティスペシャリスト」にようやく合格して、「心理学検定」は１科目受験１科目合格で、「日本語検定」は惨敗という結果でした。
IPA未踏に協力してもらってコーパスを作ろうと思っていた研究は、IPA未踏の最終審査に落ちつつも、独りで粘っていましたが、うまくいかず、補助アプリケーションである「すごい名前生成器」のほうがバズるという予想外の現象が起きました。結局、小説の話者を推定する（小説ではカギカッコの話者が明示されていないため）研究への方針転換を余儀なくされましたが、時間とやる気が足りなくて、サーベイ論文のような格好となって修了してしまいました。
9月末の修了後は、息をつく暇もなく東京へ行って正社員として仕事。これまで独学してきたことがフルに活きて感動を覚えました。
健全な精神を保つことも重要だと考えて、ペットを買って、草野球チームにも入れてもらいました。この草野球チームのメンバーがいい人ばかりで、幸せは待っていても来ないことを痛感しました。
2016年は「青空文庫 朗読部」の創部を目指して頑張ります。
入社してもうすぐ２ヶ月
日本のあまりリア充じゃない若い方々の人生を耐えやすいものにしたいと思ってP社に就職して、もうすぐ２ヶ月が経とうかという時期になりました。
当初は2016年4月入社予定でしたが、半年休学していた関係で生まれた大学院修了後の半年の空白期間を実家で働かずに勉強すると言っても受け入れてくれなかったため、就職先の会社と相談して10月入社にしてもらった次第であります。賃貸契約・片付け・引越し・引越してからの片付け・社員旅行・自炊力アップ・足りない家具の購入・文鳥（ペット）購入・草野球チームへの加入などで、まったく日記を書く余裕がありませんでした。
外食も面倒な引きこもりなので、自炊力を多少向上させて、
- から揚げ
- 豚肉のしょうが焼き
- とんカツ
- ぶりの照り焼き
- 親子丼
- 焼きそば
- オムライス
- ほうれん草のおひたし
- 小松菜＆厚揚げ
- えのき＆ベーコン
あたりを新たに作れるようになりました。（が、すでにマンネリ気味）
資格・検定は、「ネットワークスペシャリスト試験」は受けられませんでしたが、「日本語検定」は勉強時間ほぼゼロで受けました。知らないけど美しい日本語の表現がまだまだあるようなので次回も受けたい。「ビジネス実務法務検定」や「簿記検定」は仕事で使うケースがまったくないため、覚えても忘れるので受けないことにしました。
仕事は、悪くはないけど、チームでやると責任は分散されるし、利用者の声も直接自分に届くこともないという点は、満たされないように感じられます。先人の知恵を借りるべく文献を引けるだけ引いて提案書などを作る自分としては、皆様、フィーリングで物事を決めすぎではないかと思ってしまう部分が無きにしもあらずといった具合です。