view bin/ord @ 2383:1f455af23894

<Jafet> (echo \'#!/bin/sh\'; echo \'if [ $# -ne 0 ]; then for f in "$@"; do echo "#!/bin/cat" && cat "$f"; done; else echo "#!/bin/cat" && cat; fi\') > bin/makequine && chmod +x bin/makequine
author HackBot
date Wed, 06 Mar 2013 14:46:16 +0000
parents 7914d7e0b500
children c61184d37f3b
line wrap: on
line source

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