プロジェクトの渋い脇役としてのPerl

Gotanda.pm #3

Dec 17th, 2014

Profile

• id: Songmu (ソンムー)
• Masayuki Matsuki
• おそらくはそれさえも平凡な日々 http://www.songmu.jp/riji/
• https://metacpan.org/author/SONGMU
• 趣味はCPANizeです
• はてな シニアアプリケーションエンジニア
• 東京オフィス
• はてなでGoとScala始めました

• https://mackerel.io/
• サーバー管理・監視ツール as a Service
• 前身: はてなの社内ツール
• 管理対象のサーバーから送信するメトリクスを集計
  • モニタリングとアラート通知
  • グラフ描画
• Mackerelシールあります

recent DBIx::Schema::DSL's updates

• ON UPDATE CURRENT_TIMESTAMP support (toku_bass++)
  • on_update => 'CURRENT_TIMESTAMP';
• ENUM support
  • enum langs, [qw/perl scala golang typescript/]

SQL::Translator::Producer::Teng

• SQL::TranslatorオブジェクトからTengのスキーマ自動生成

最近の業務

https://github.com/mackerelio/mackerel-agent-plugins

• golangのプロジェクト
• リリースを簡便化
• p-rを自動生成
• そのp-rをレビュー後マージボタンを押したらTravisがtagを自動で打つ
• tagを打たれたコミットに対してTravisがビルド成果をrelease
• 自動化部分をperlで実装

自動化周り

Perlでツール作成(標準モジュール縛り)

• tool/releng
  • 手元で打つ。リースp-rを作成してくれるやーつ
• tool/autotag
  • Travisから叩く。マージコミットにタグを打ってくれるやーつ

ツールをテストする

• perl tool/releng でスクリプトが動いて prove tool/relengするとテストが走るおもしろ機構
• 一枚のPerlスクリプトの中にテストも書かれてる
• ドキュメントとテストコードつきのPerlスクリプトを書く方法
• $ENV{HARNESS_ACTIVE}を見て分岐
• ちゃんとテストを書けるのは安心

• シェルスクリプトが複雑化すると大変

    if (!$ENV{HARNESS_ACTIVE}) {
        main();
    } else {
        # When called via `prove`, tests will run.
        run_tests();
    }
  

tool/releng

• 次のバージョンの決定
• ファイルを置換しまくり
• ブランチ作成
• Changelog自動生成
• push
• p-r作成
• https://github.com/mackerelio/mackerel-agent-plugins/pull/45

tool/autotag

• マージコミットかどうか判断
• マージコミットの場合マージ元のブランチ名を取得
• ブランチ名をもとにバージョンを指定
  • e.g. ブランチ名がbump-version-0.5.0 -> v0.0.5

Travisにtagをgit pushさせる

• travis encrypt-fileで暗号化したファイルをリポジトリにコミット
• Tavis上で溶かす
• .ssh に無理やり配置
• git remote set-url origin git@github.com:mackerelio/mackerel-agent-plugins.gitでリモート書き換え
• push!
  • 永久機関作成に注意
• https://github.com/mackerelio/mackerel-agent-plugins/blob/master/.travis.yml#L13-L19

以上

We are Hiring

• はてなではエンジニアを募集しています
• 東京でも絶賛採用中
  • エンジニアは少ない
  • 東京のエンジニアは現状2人ですが東京オフィス自体には30人くらいいます
• もちろん京都にもおいでやす