やっぱり熱があるらしい

あるスレを見て、作ってみたはいいが、nawk でやってみるあたりも熱があるのが原因なのか?

#! /usr/bin/nawk -f

{
    srand();
    len = length($0);
    for (i = 1; i <= len; i++) {
        cut_comm = "echo '" $0 "' | cut -c " i;
        cut_comm | getline char[i];
        close(cut_comm);
    }
    for (i = 1; i <= len; i++) {
        if (rand() < 0.3) {
            char[i] = char[i] www("ｗ");
        }
    }
    for (i = 1; i <= len; i++) {
        if (char[i] !~ /^ｗ/) {
            printf("%s", char[i]);
        }
    }
    print "";
}

function www(str,    i, tmp_str) {
    tmp_str = "";
    for (i = 1; i < rand() * 5; i++) {
        tmp_str = tmp_str str;
    }
    return tmp_str;
}

$ echo 'スマブラでミドナ様が出てこないのは許せ ない' | nawk -f add_www.awk
スマブｗｗラｗでミドナ様ｗがｗ出ｗてこないのは許ｗｗせないｗ

いや、本当に許せない。
ゼルダなんて全部で 5 分くらいしか出てないし・・・、ミドナ様はオレと 48 時間くらい付き合ってくれたわけだし、思い入れが違うよな。