ちなみに vim の終了方法としては :cq というのもあり、これを実行すると vim が終了コード 1 で終了します。git commit をキャンセルする場合に使えます。
— mattn (@mattn_jp) 2019年6月26日
だいぶ昔のツイートなのですが, さっき知ったので忘備録的にブログに書いておきます.
CLIでGitを操作してて, commit logはnvimで書いてるんですが, たまにgit commit した後に｢あ, commitするbranch間違えた...!｣みたいに気づくことがあって困ることがありました.
mattnさんのツイートにもあるように, :cq で閉じると,
hint: Waiting for your editor to close the file... error: There was a problem with the editor 'nvim'. Please supply the message using either -m or -F option.
となって, コミットすることなくnvimを閉じることができます.
この記事は, ｢Perl Advent Calendar 2021｣の22日目の記事です.
昨日はtecklさんの｢Perlアプリケーション + AWS Lambda + API GatewayでWebhookを受ける｣でした.
Perl 5.36に向けた開発版の現時点での最新版, Perl 5.35.7 では, builtinというユーティリティを提供するプラグマが提供されています. 特に注目すべきはtrue, false, isboolの提供でしょう. ということで, 実際にインストールして試してみます.
を参考に, 次のように5.35.7をインストールします:
plenv install 5.35.7 -Dusedevel
さあ, 試してみましょう. まず, そもそも trueやfalseは何を返すのでしょうか?
use strict; use warnings; use builtin qw(true false); use feature qw(say); my $true = true; my $false = false; say "'$true' / '$false'"; # => '1' / ''
このように, true は!!1ないし!0(This gives an equivalent value to expressions like !!1 or !0.), falseは!!0ないし!1(This gives an equivalent value to expressions like !!0 or !1.)と同値となる値が得られるようになっています.
Perlで真偽値を扱う時に, !!1や!!0はよく使いますが, Perlの入門者からすると｢これは一体...?｣となりがちでした. これをtrue/falseで表せるのは大変嬉しいですね.
一方で, true/falseをJSON::XSなどでJSONに変換する時は注意が必要です:
use strict; use warnings; use builtin qw(true false); use feature qw(say); use JSON::XS qw(encode_json); my $true = true; my $false = false; say encode_json({ true => $true, false => $false }); # => {"true":"1","false":""}
JSON::XSでは(デフォルトでは), \1をtrue, \0をfalseとなるように変換してくれます. このため, \1 !=0 !!1, \0 != !!0であるため, trueは"1"に, false は ""に変換されてしまいます.
use strict; use warnings; use feature qw(say); use JSON::XS qw(encode_json); say encode_json({ true => \1, false => \0 }); # => {"true":true,"false":false}
このシンプルな解決策としては, JSON::Typesのboolを使うといった作戦がありそうです.
use strict; use warnings; use builtin qw(true false); use feature qw(say); use JSON::XS qw(encode_json); use JSON::Types qw(bool); my $true = true; my $false = false; say encode_json({ true => bool $true, false => bool $false }); # => {"true":true,"false":false}
また, このbuiltinプラグマでは, これまでScalar::Util で提供されていた blessed や weakref などが提供されるのも若干嬉しいポイントですね. 加えて, 真偽値かどうかの判定に使える, is_boolなども提供されています.
感想としては, 前述した通り!!1や!!0というPerlで真偽値を扱う時の｢よくある(が見慣れない)表現｣をtrue/falseで書けるようになるのは嬉しいですね. 一方で, JSONにencodeする時の扱いは引き続き気をつける必要がありそうです. この辺りもいい感じになれば, 更に便利! という感じがしそうです.
id:hitode909 さんです. よろしくおねがいします.
何を言っても言い訳になるのですが, 最近頭痛が激しくて少し軽めの記事になってしまいました... 申し訳ありません. 元気になったらもうちょっと加筆します.
また, builtin の登場は会社のSlackで 
id:nanto_vi さんに教えてもらいました. この場を借りて御礼申し上げます.
この記事は｢はてなエンジニア Advent Calendar 2021｣の12日目の記事です.
昨日は 
id:cohalz の｢distrolessのnonrootイメージを使おう｣でした.
Perlのパッケージには, "エクスポート"という概念があります. 例えば, 次のようなモジュールがあったとしましょう:
package MyPkg; sub f1 { ... } sub f2 { ... } sub f3 { ... }
パッケージMyPkgに定義されたf1, f2, f3の関数をパッケージの外から呼び出すには, 通常次のように呼び出す必要があります:
use MyPkg;
MyPkg::f1();
MyPkg::f2();
MyPkg::f3();
いちいち MyPkg を書くのは面倒, ということで用意されたのが Exporter モジュールです.
このモジュールを使うと, グローバル変数@EXPORT で自動的にエクスポートする関数を, @EXPORT_OK でエクスポート可能な関数 を, それぞれ定義することができます. 例えば, MyPkg で Exporter を使って, 次のように書き換えたとしましょう:
package MyPkg; use Exporter 'import'; our @EXPORT = qw(f1 f2); our @EXPORT_OK = qw(f3); sub f1 { ... } sub f2 { ... } sub f3 { ... }
この場合, f1, f2 の関数は自動的にエクスポートされるため, 次のようにして呼び出すことができます:
use MyPkg; f1(); f2(); f3(); # 関数 f3 は @EXPORT で指定していないため呼び出せない(存在しない関数を呼び出したことになる)
f3 を呼び出したい時は, 次のようにMyPkgをuseするときに, ｢この関数を利用します｣と指定しなければなりません:
use MyPkg qw(f3); f3(); # use するときに, f3 を呼び出せるよう設定しているので呼び出せる
@EXPORT と @EXPORT_OK, どう使い分けるべきでしょうか. 先程の例では, Exporterモジュールを使って関数をエクスポートしているパッケージが, MyPkgだけだったので, どちらでも問題ないように思えます. しかし, 複数のパッケージでExporterモジュールを使い, @EXPORTで関数をエクスポートしていると, どうなるでしょうか.
use MyPkg1; use MyPkg2; use MyPkg3; exported_function();
パッと見で, ｢exported_functionはどのパッケージで定義されているんだ...?｣となりますよね. このため, Perl::Critiでも Perl::Critic::Policy::Modules::ProhibitAutomaticExportation というルールが用意されていて, @EXPORT を使って関数をエクスポートしようとすると警告してくれるようにすることができます.
これを自動的に置き換えるにはどうすればいいでしょうか. 今回はPerlの静的解析ツールであるところのPPIを使って解決しました:
use strict; use warnings; my $pkg = 'Foo'; my $path = 'lib/Foo.pm'; # $pkg においてエクスポートされている関数の名前を取得する my $exported_function_names = get_exported_function_names($pkg); # `git grep` を使って, $pkg を使っているファイルを探す my @files_using_exported_function = split /\n/, `git grep --name-only --word-regexp 'use $pkg;' t/`; # `replace_file` で, $pkg を使っているファイルについて利用する関数を明示するよう書き換える replace_file($_, $exported_function_names) for @files_using_exported_function; # $pkg の @EXPORT を @EXPORT_OK に書き換える replace_export_ok($path); # スペシャルサンクス: id:mackee_w & id:xtetsuji # この関数で行っている, 変数でパッケージ名を指定してグローバル変数を読み出す方法がわからなかったのでアドバイス頂きました sub get_exported_function_names { my $pkg = shift; no strict qw(refs); return [ @{ $pkg . '::EXPORT' } ]; } sub replace_export_ok { my ($path) = @_; my $document = PPI::Document->new($path); my $export = $document->find( sub { $_[1]->isa('PPI::Token') && $_[1]->content eq '@EXPORT' } ); return undef unless $export; $export->[0]->set_content('@EXPORT_OK'); $document->save($path); } sub replace_file { my ($path, $exported_function_names) = @_; my $document = PPI::Document->new($path); # $exported_function_names に存在する関数のうち, # $path で実際に使っているものを探す my $used_exported_function_names = $document->find( sub { $_[1]->isa('PPI::Token') && any { $_[1]->content eq $_ } $exported_function_names->@* } ); return undef unless $used_exported_function_names; my $unique_used_exported_function_names = [ uniq sort map { $_->content } $used_exported_function_names->@* ]; # $pkg を use している部分を探して... my $use_statement = $document->find( sub { $_[1]->isa('PPI::Statement::Include') && $_[1]->module eq $pkg } )->[0]; my $package_word = $use_statement->find( sub { $_[1]->isa('PPI::Token::Word') && $_[1]->content eq $pkg } )->[0]; # `use $pkg;` を `use $pkg qw( ... );` のように書き換える # ... は $path で実際に使っているエクスポートされた関数の名前になる $package_word->insert_after( PPI::Token::Word->new(sprintf(" qw(%s)", join(' ', $unique_used_exported_function_names->@*))) ); $document->save($path); }
この例では, lib/Foo.pm にあるパッケージFooにある@EXPORTを@EXPORT_OKに置き換えています. lib/Foo.pmだけでなく, Gitのgit grepを使って, 実際にFooを使っているファイルの中身も書き換えて, 置き換え後も正しくテストが通るようにしています.
実際にとあるPerlプロダクトで試してみましたが, 95%くらいはこの素朴なスクリプト(をベースにしたスクリプト)で一括置換することができました.
実は今回始めてPPIを使ったのですが, ドキュメントとにらめっこして1時間ちょっとくらいで素朴な置き換えスクリプトが実装できて便利でした(ので, おそらくもっと良い書き方はありそうです). PPIを使うことで, こういった細かい気になりポイントをガッとリファクタリング出来ることがわかったので, これからも良いアイデアが浮かんだらやっていきたいと思いました.
id:Windymelt さんです. よろしくおねがいします.
小ネタです. Gitで開発をしていて, 特定のbranchのみcommit/pushしたくない, という場合があるかと思います. 例えばmainブランチにはcommit/pushしたくない, など.
これを実現するには様々な方法がありそうですが, 自分はGitのhookの機能を使って実現しています.
今回の場合, ｢commitしたくない｣を実現するためにcommit前に発火するpre-commitのhookを, ｢pushしたくない｣を実現するためにpush前に発火するpre-pushのhookを使えば良さそうです. 例として, mainブランチについてcommit/pushをしたくないという場合には, 次のようなスクリプトを設置するとうまくいきます(commit/pushしようとすると, メッセージを出力した上で強制的に中止してくれます).
.git/hooks/pre-commit#!/bin/sh # mainブランチにはcommitできない if test "`git symbolic-ref HEAD | sed -e 's:^refs/heads/::'`" = 'main'; then echo "cannot commit on main branch." exit 1 fi
.git/hooks/pre-push#!/bin/sh # mainブランチにはpushできない if test "`git symbolic-ref HEAD | sed -e 's:^refs/heads/::'`" = 'main'; then echo "cannot push on main branch." exit 1 fi
同僚の 
id:stefafafan と 
id:masawada と共に｢天下n品｣で参加して, 予選敗退しました. 最終スコアは 33,586点とのこと.
自分がやったこととしては｢Redisの活用を試みた(なお, スコアの上昇には寄与しなかった模様)｣の一言に尽きます. その他やったことは, チームメンバーがエントリに詳しく書いてくれたのでそちらをご覧いただければと思います.
良いメンバーに恵まれて, ｢次があったら勿論またやるぞ!!!｣という勢いになっているので, 次こそは予選突破してみんなで天下一品飲みで祝賀会をしたいですね. やっていくぞ!!!!
