Kenichi Maehashi's Blog

脳内コアダンプ

RSS
Category: Web

最近、こういうのを Twitter でよく見かけるわけですが、いつも目を凝らしたあげく見つからなくてストレスが溜まるので、いっそのこと one-liner でやればいいのではと思った。
$ echo "騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騷騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒騒" | perl -CS -ne ' m/^(.)(\1*)(.)(\1*)$/; print $3," at ",length($2)+2," (not ",$1,")\n";'
騷 at 65 (not 騒)
65 文字目にある「騷」が間違いで、それ以外は「騒」のようですね。

Comments

Leave Yours...
Name:
E-mail / URL (optional):
Comment:
Are You Robot?: