Mercurial > repo
view bin/ordu @ 8196:798a9de88609
<oerjan> mkx bin/rnooodl//perl -pe \'s/(\\w)\\1\\1/"@{[$1 x(3+rand 7)]}"/ge\'
author | HackBot |
---|---|
date | Sun, 29 May 2016 00:49:46 +0000 |
parents | 7f957c1f4661 |
children |
line wrap: on
line source
#!/bin/sh print_args_or_input "$@" | perl -C7 -pe 'chomp; $_ = join(" ", map { sprintf "U+%x", ord } split //, $_);'