The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
  cumsum - Calculates the accumulative sum line by line. Various options entail.
=head1

コマンド $0

  入力行の先頭列の数値を取りだし、その累積和について出力をする。
  その数値の全体に対する割合について調べるために用いる。

  Calculates accumulative sum from STDIN. 
  Various relevant information can be entailed by options.

 オプション(Option): 

   -=   : 先頭行をヘッダとして扱う。データは2行目からと見なす。 (Skip the first line for the processing.)
   -. N : 割合を出力する場合に、小数点以下何桁を表示するかを指定する。 (How many digits after the decimal point.)
   -q   : 2次情報を出力しない。(No secondary information. (Quiet) )
   -*   ; (-\* と書く方が良いかも知れない。) 各行について数値の列を全て乗じた数を入力と見なす。(Employ the multiplied number on all numbers on each line)

   -!   : 入力を最後まで読み終わらなくても1行毎に累積和を計算する。下記に書かれた残りのオプションは使われない。

   -~   : 逆方向の累積和も出力する。(Reverse accumulative summation. (Calculated from the end line.))
   -/   : 割合も出力する。(Also output the rate.)
   -%   : 割合を出力する場合に % 表記を用いる。 -/ もあったと見なされる。 (Use % notation for the rate output.)
   -0   : 累積和に相当する部分を出力しない。(-/ や -~ は無効化されない。)  (Omit the cumsum column in the output.)

 動作上の注意/開発上のメモ: 

    * このコマンド$0は入力を全て読み終わってから、出力を開始する。全体に対する割合を計算するため。-! を指定されない限り。
    * 緑色の最初の行の表示は、標準出力ではなくて、標準エラー出力である。
    *  逆方向の累積に対する割合の表示も、次回の機能改善の時に機能として加えたい。時に有用であるため。
    * 列ごとに別々に加算するオプションがあっても良いかも。