Follow

もうちょっと使いやすいバージョンできた

echo "さだまさし" | perl -CSAD -MEncode -E '$_=<>; chomp; @c=split(//,$_); foreach(1..100) { say join("",map{ $c[int(rand($+1))] } @c)}'

@mamemomonga $#c+1 って 0+@C でよくね、ていうか $c[int rand @C] でよくね

@tateisu おー、そういう書き方もあるんですね〜。perl奥深いな〜 (すみません、レスがフォロワー限定になってました)

Sign in to participate in the conversation
まめもどん

まめもおんらいんです
たのしくつかってね。
なかよくつかってね。