3 ms·
This reminds me of a T-shirt I once saw that read: perl -e ' "$a="etbjxntqrdke"; $a=~s/(.)/chr(ord($1)+1)/eg; print "$a\n;"' It's cur
by forinti 3mo ago
This reminds me of a T-shirt I once saw that read:
perl -e '
"$a="etbjxntqrdke";
$a=~s/(.)/chr(ord($1)+1)/eg;
print "$a\n;"'
It's cursing. Don't run it if it might offend you.
Upon seeing this, I decided to golf and came up with a shorter version:
perl -e "print chr 1+ ord for split //,'etbjxntqrdke'"
- librasteve 3mo agoor raku -e 'say "etbjxntqrdke".comb.map({chr .ord + 1}).join'
- lizmat 3mo agoor raku -e 'say "etbjxntqrdke".comb.map(*.succ).join'
- srejk 3mo agoThis is just a ROT1, so perl -pe'y/a-z/b-za/'<<<etbjxntqrdke
- forinti 3mo agoThat makes for a cool rot13: /a-z/n-za-m/
- librasteve 3mo agoraku -pe 'tr/a..z/b..za/' <<< etbjxntqrdke