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

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

フォロー

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

· SubwayTooter · 1 · 0 · 2

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

ログインして会話に参加
juggler.jp Mastodon サービス

日本語で楽しめるMastodonサーバを提供しています。