view bin/ord @ 4295:e3a8730487a4

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

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