changeset 1911:ab604b766abe

<fizzie> printf \'%s\\n\' \'#!/bin/sh\' \'echo "$@" | perl -C7 -pe \'\\\'\'chomp; $_ = join(" ", map { ord } split //, $_);\'\\\' > bin/ord
author HackBot
date Wed, 30 Jan 2013 14:12:24 +0000
parents 38a1ea072fb4
children abd1f1664369
files bin/ord
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/bin/ord	Wed Jan 30 14:11:46 2013 +0000
+++ b/bin/ord	Wed Jan 30 14:12:24 2013 +0000
@@ -1,2 +1,2 @@
 #!/bin/sh
-exec perl -C7 -pe 'chomp; $_ = join(" ", map { ord } split //, $_);'
+echo "$@" | perl -C7 -pe 'chomp; $_ = join(" ", map { ord } split //, $_);'