Mercurial > repo
changeset 4492:02775a0b8839
<ion> sed -i -re \'s/echo ("?)\\$[@*]\\1 /print_args_or_input "$@" /g\' bin/complain bin/ord bin/ordu
| author | HackBot |
|---|---|
| date | Sat, 22 Feb 2014 02:38:07 +0000 |
| parents | 8f760d2d3e9d |
| children | 3a62de2180a7 |
| files | bin/complain bin/ord bin/ordu |
| diffstat | 3 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/bin/complain Sat Feb 22 02:37:17 2014 +0000 +++ b/bin/complain Sat Feb 22 02:38:07 2014 +0000 @@ -1,1 +1,1 @@ -echo "$@" >> complaints; echo Complaint filed. Thank you. +print_args_or_input "$@" >> complaints; echo Complaint filed. Thank you.
--- a/bin/ord Sat Feb 22 02:37:17 2014 +0000 +++ b/bin/ord Sat Feb 22 02:38:07 2014 +0000 @@ -1,2 +1,2 @@ #!/bin/bash -echo "$@" | perl -C7 -pe 'chomp; $_ = join(" ", map { ord } split //, $_);' +print_args_or_input "$@" | perl -C7 -pe 'chomp; $_ = join(" ", map { ord } split //, $_);'
--- a/bin/ordu Sat Feb 22 02:37:17 2014 +0000 +++ b/bin/ordu Sat Feb 22 02:38:07 2014 +0000 @@ -1,2 +1,2 @@ #!/bin/sh -echo "$@" | perl -C7 -pe 'chomp; $_ = join(" ", map { sprintf "U+%x", ord } split //, $_);' +print_args_or_input "$@" | perl -C7 -pe 'chomp; $_ = join(" ", map { sprintf "U+%x", ord } split //, $_);'