古い記事
ランダムジャンプ
新しい記事
各コラムの合計を計算するだけの perl スクリプト。使い捨ての類。車輪の再発明だけど、探すより作る方が早い。「もっとプログラムを短くしたい!」という誘惑にかられたが (パズル魂)、ぐっと我慢。

#!/usr/bin/env perl
use Getopt::Std;
getopt('d');
$delimitter = (defined $opt_d) ? $opt_d : '\s+';
while (<>) {
    print;
    @c = split(/$delimitter/, $_);
    for (0..$#c) {$sum[$_] += $c[$_]}
}
print "#", join(",", @sum), "\n";

% ll *.txt | gok
-rwxr--r--    1 yto      yto         50668 Jul  5  2002 a1.txt
-rwxr--r--    1 yto      yto         50584 Jul  4  2002 a2.txt
#0,2,0,0,101252,0,9,4004,0
% gok -d , a.csv
2002-12, 83,  0
2003-01, 65, 23
2003-02, 87,109
#6008,235,132

こんな感じの処理ができる UNIX コマンド (たいていの環境に入っていそうなもの) ってあるのかなあ。 cut や cat にこういうオプションが付いているとベストなんだけど。