Perlによるコマンドラインツール開発Tips

perl casual #6

Oct 24th, 2014

Profile

• id: Songmu (ソンムー)
• Masayuki Matsuki
• おそらくはそれさえも平凡な日々 http://www.songmu.jp/riji/
• https://metacpan.org/author/SONGMU
• 趣味はCPANizeです
• 株式会社はてな
• シニアアプリケーションエンジニア

Perlによるコマンドラインツール

• Percona Toolkit
• GNU Parallel
• mosh
• ack
• watcher
• git svn
• diff-highlight

何故Perlなのか

• betterシェルスクリプト
• どこにでもほぼ入っている
• 将来的に壊れる心配が少ない
• ちょっとしたものをサクッと書くには向いてる
• Golangとかはもうちょっと大きいもの(個人的には)
• ~/bin を充実させる
• モジュール少なめで頑張る

スクリプトを書くまでも無い例

• perl -i -pe (sedのかわり)
• perl -an (awkのかわり)

書くときのアプローチ

• ぺらっとスクリプトファイルを書く
• しっかりしたモジュール構成で書く

ペラっと書くときの便利標準モジュール

• Getopt::Long (引数取得)
• Pod::Usage
• Encode
• File::Spec
• File::Basename
• FindBin
• Term::ANSIColor
• JSON::PP (perl5.14 & later)
• HTTP::Tiny (perl5.14 & later)

モジュール構成で書く場合はpmファイルに寄せる

use strict;
use warnings;
use MyApp::ClI;
MyApp::CLI->run(@ARGV)

引数が空の場合を検知する

use Term::ReadKey;
use Getopt::Long;
GetOptions(\my %opt, qw/
    password|p:s
/);
die 'password required' unless exists $opt{password};
if ($opt{password} eq '') {
    ReadMode 'noecho';
    print 'Enter password: ';
    chomp ($opt{password} = ReadLine);
}
print "your password: $opt{password}\n";

入力がパイプ経由かどうかを知る

if (-p STDIN) {
    print while <>;
}
else {
    die 'Standard input must be passed on through the pipe';
}

インストール方法

Minillaとかでモジュール作って、script/以下にスクリプトファイル置くとそれを自動的にインストールしてくれる

単一ファイルにしたいとき

• ベタにスクリプトファイル(.plファイル)を書く場合
• App::FatPackerを使う

ベタにスクリプトファイルを書く場合のテスト

% cat say-ya.pl
main() unless caller;
sub main {
    print ya() . "\n";
}
sub ya {
    return 'YA';
}

% cat t/main.pl
use Test::More;
require 'say-ya.pl'; # main()は動かない
is ya(), 'YA';

App::FatPacker

% fatpack pack hoge.pl > hoge-packed.pl

• cpanmとかがそう
• pureperlのモジュール縛りになる

以上

We are hiring

• はてなではエンジニアを募集しています
• scalaエンジニア
• Perlエンジニア
• 東京オフィス