Bulknews::Subtech RSSフィード

2006/07/08 (土)

タイプカウンタのあれ 16:20  タイプカウンタのあれ - Bulknews::Subtech を含むブックマーク はてなブックマーク -  タイプカウンタのあれ - Bulknews::Subtech

タイプ数カウンターのデータファイルからCSVを作る - Higepon’s blog

ソースも同梱してあるのでもっと高級言語(Ruby?Python?)で書き直したほうが汎用性があがるかも。

毎日どこかにこのタイプ数をポストしたりとかグラフをほげほげとか。

それPerl(ry ってことで書いてみた。実質はワンライナーだけど padding をとったりとか。

use strict;

my @keys = (
    ('_') x 29,
    'other',
    ('_') x 7,
    'bs', 'tab',
    ('_') x 3,
    'enter',
    ('_') x 2,
    'shift', 'ctrl', 'alt',
    ('_') x 8,
    'esc',
    ('_') x 4,
    'space',
    ('_') x 4,
    'left', 'up', 'right', 'down',
    ('_') x 5,
    'del',
    ('_') x 1,
    0 .. 9,
    ('_') x 7,
    'a' .. 'z',
);

local $/; # slurp data file

my %data;
@data{@keys} = unpack "L*", <>;

my @print_keys = grep !/^_/, @keys;
push @print_keys, shift @print_keys; # OMG 'other'

print_csv(@print_keys);
print_csv(@data{@print_keys});

sub print_csv {
    print join(",", @_) . "\r\n";
}