prosconsnarpa1988のブログ https://ameblo.jp/prosconsnarpa1988/ ブログの説明を入力します。 ja cdif v2.5 cdif アップデートしました - 昨年末に更新した cdif を修正しました。

未修正部分の着色に対応

自分では必要ないと思っているのですが、未修整部分の文字にも色を付けられるようにしました。また --colormap というオプションで、それぞれのフィールドの色を指定できるようになっています。デフォルトの設定はこう。cdif --cm 'COMMAND=SE,OMARK=CS,NMARK=MS' \ --cm '*TEXT=,*CHANGE=BDw,DELETE=APPEND=RDw'--commandcolor, --markcolor, --textcolor オプションで、フィールドに色を付けるかどうかを指示することもできます。--cc, --mc, --tc とも省略可。デフォルトでは --notc になっています。あ、DELETE がなかった…

diff -t, -T に対応

その他、若干のバグ修正

ところで

今回、--colormap オプションをテーブルに反映する部分のコードはこんな風になっています。if (@opt_colormap) { map { my $c = pop @$_; map { $colormap{$_} = $c } map { match_glob $_, keys %colormap } @$_; } map { [ split /=/, $_, -1 ] } map { split /,/ } @opt_colormap;}自分で書いといて、なんだか Perl っぽくないコードだなあと時代を感じたりするわけですが、3行目だけ古風な感じなので List::Util の reduce を使って書き直そうかと思うと、これがどうもうまくいかないのですよ。次のプログラムを実行すると、$hash{k1}, $hash{k2} に v が入ってほしいのだけど、2番目は undef になってしまいます。my %hash;reduce { $hash{$b} = $a; $a;} qw(v k1 k2);print Dumper \%hash;$a は一度代入すると値を失うようで、$a; だけの行を削除すると動くし（この行は本来不必要）、代入する部分を "$a" にしても大丈夫。どうも perl5.12 に含まれる reduce のバグではないかと。List::Util::PP を使えば動作するし。なんとか使う方法はわかり、map と reduce だけのそれなりに趣のあるコードになりますが、動いたところで変な warning は出るし、無駄に可読性を下げるだけなので不採用でした。参考のために一応見せるとこんなです。use List::Util qw(reduce);no warnings;if (@opt_colormap) { map { reduce { map { $colormap{$_} = "$a" } match_glob $b, keys %colormap; } reverse @$_; } map { [ split /=/, $_, -1 ] } map { split /,/ } @opt_colormap;} ... ]]> https://ameblo.jp/prosconsnarpa1988/entry-12150977913.html Sat, 16 Apr 2016 22:40:48 +0900