完成間近と思ってたけど色々とやることが残っている新しいRestHouseナントカ応援団データベースターズ・アプリ風のアレですが。

そろそろ今シーズンの日程等のデータを登録しようということになって、せっかくなので登録用のPerlスクリプトもバージョンアップ。

バージョンアップというか、毎年変更部分だけスクリプト内のデータを書き換えて使っていたのを、書換が必要な部分を外部のJSONで管理すれば、JavaScriptの方と共有できるので、そうなるように書き換えてみたのです。

それほど難しいことではないと思ったのですが、PerlでJSONを読み込んでデータを取り出そうとしたらなかなか上手くいかなくて。
keys %{$$json_data{members}}というややこしいやり方でやっと上手くできました。

Perlは久々なので、他にもっと簡単なやり方があったかどうかも思い出せませんけど。動いているのでこれであってるに違いないのです。

JavaScriptの方は世の中の需要もあったりして、常に進化しているのでついていくのが大変という感じはありますが、こういうことがあると、JavaScriptの方は今風という気もしてきます。

<!-- 関係ないですがPerlを書く時にはコード内のコメントなどに良く曽古野貴美が登場します。なぜかは知りません。-->