入力した文字列にマッチしない行を表示する custom matcher
とある人の要望を勘違いして作ってしまったのですが,
捨ててしまうのもあれなので載せておきます.
コード
#!/usr/bin/env perl use strict; use warnings; my $query = shift; my @queries = split /\s/, $query; while (my $line = <STDIN>) { my $match = 0; for my $q (@queries) { if ($line =~ m{$q}) { $match = 1; last; } } print $line unless $match; }
設定
以下を configファイル(~/.peco/config.json 等)に追加.
上記のファイルに実行権限をつけておいてください.
{ "CustomMatcher": { "InvertMatch": [ "/somepath/reverse.pl", "$QUERY" ] } }