view bin/ord @ 4297:2ca838dda29c

<oerjan> echo >bin/rnooodl \'perl -pe \'\\\'\'s/([Nn])ooodl/"$1@{[o x(3+rand 7)]}dl"/ge\'\\\'
author HackBot
date Tue, 14 Jan 2014 01:20:49 +0000
parents c61184d37f3b
children 02775a0b8839
line wrap: on
line source

#!/bin/bash
echo "$@" | perl -C7 -pe 'chomp; $_ = join(" ", map { ord } split //, $_);'