The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

 $0 

   入力のテキストを読み取り、数値の部分を (Regexp::Commons::number を使って)
   抽出して、背景に ANSIエスケープシーケンスによる色を付ける。
   最小値は青、緑を経由して、最大値は赤。15段階。
   (出現数値をuniq化した上で、28分位点をとり、奇数番目の値14個を抽出して、
   それを閾値として、色は段階的に変化させる。)

   閾値に対して、数値の色づけは、「以下」で判定。「未満」による判定ではない。

  オプション: 

   -u 0 : 数値に対して uniq の処理をしない。
   -g L,U[,0] : 着色する数値範囲を指定する。3番目に0を入れると、範囲外の数値は着色をしない。
   -~ : 色の、赤と青の傾向を反転する。

   -M num ; numは色の個数。最大15。
   -2 0 ; 2次情報の出力の抑制