ズンドコしたい (2)

こっちは入力を5つ区切りにして、それぞれが 00001 の並びになっているかどうかをチェックする。 (仕様はこちらが正しいらしい？)

$ cat /dev/urandom \
 | LANG=C tr -dc "01" \
 | fold -w1 \
 | paste -d' ' - - - - - \
 | (perl -nle 'print; if ($_ eq "0 0 0 0 1") { exit 0; }'; echo 2) \
 | perl -ple 'BEGIN { @table = qw/ズン ドコ キ・ヨ・シ！/ } s/(\d)/$table[$1]/ge' \
ドコ ドコ ズン ドコ ドコ
ズン ドコ ズン ズン ズン
ドコ ズン ズン ズン ドコ
ズン ドコ ズン ズン ドコ
ズン ドコ ズン ドコ ドコ
ドコ ドコ ズン ズン ズン
ズン ズン ドコ ズン ズン
ズン ドコ ドコ ドコ ドコ
ズン ドコ ドコ ズン ドコ
ドコ ドコ ズン ドコ ズン
ドコ ズン ドコ ドコ ズン
ズン ドコ ドコ ズン ドコ
ズン ズン ドコ ズン ドコ
ドコ ドコ ドコ ドコ ズン
ドコ ズン ドコ ズン ドコ
ドコ ドコ ドコ ズン ズン
ズン ドコ ズン ズン ズン
ドコ ドコ ドコ ズン ドコ
ドコ ズン ズン ズン ドコ
ズン ドコ ドコ ドコ ドコ
ズン ズン ズン ドコ ズン
ズン ドコ ズン ズン ズン
ドコ ズン ドコ ドコ ドコ
ズン ズン ズン ドコ ドコ
ズン ズン ズン ズン ズン
ズン ズン ドコ ドコ ドコ
ズン ズン ズン ズン ドコ
キ・ヨ・シ！