雪日記の04/21に反応。
自力解決で先を越されてしまったので、perlで通用する正規表現。
perl -e 'while(<>){s/([0-9]{1,3})(?=(?:[0-9][0-9][0-9])+(?![0-9]))/$1,/g; print}'
普段sed等を念頭に考えるので出てこにゃい、「(?=」や「(?:」が使われている。
正規表現をマスターしておけばかにゃり無敵だと言うことを再実感。
うう〜〜〜〜
にゃんかね、まず、血が流れにゃいと言うか、肝心にゃところで何がどうされたのか分からにゃい。
で、音楽だけ盛り上がってるのでさらにいらつくことににゃる。そして止め絵の多いこと。NOIRを見ているようだ・・・って同じか。