/opt/nb/bin/ascii

diff --git a/bin/ascii b/bin/ascii
new file mode 100755 (executable)
index 0000000..6b7ed77
--- /dev/null
+++ b/bin/ascii
@@ -0,0 +1,18 @@
+#!/bin/sh
+ascii() {
+
+       if [ ! -t 0 ]; then
+               cat | perl -ne 'for (split("",$_)) { print sprintf("%3d",ord($_)).":$_\n"; }'
+       elif [ -n "$*" ]; then
+               perl -ne 'for (split("",$_)) { print sprintf("%3d",ord($_)).":$_\n"; }' $@
+       else
+               perl -e 'binmode(STDOUT, ":utf8"); for(32..255){ print "$_:".chr($_)."\n"; }'
+       fi
+
+}
+
+if [ "$#" = 1 ]; then
+       ascii | awk -F: '$1=="'$1'"{print $2}'
+else
+       ascii
+fi

diff --git a/etc/profile.d/functions b/etc/profile.d/functions
index 2b9816f2338625e599ca5a9fc07848d30eabf5b6..1c2d178b755c2338ce94fa3a86bfd074fc6baf50 100755 (executable)
--- a/etc/profile.d/functions
+++ b/etc/profile.d/functions
@@ -263,18 +263,6 @@ env_add_path() {
        [ -z "$env_value" ] || echo "$env_value"
 }
 
-ascii() {
-
-       if [ ! -t 0 ]; then
-               cat | perl -ne 'for (split("",$_)) { print sprintf("%3d",ord($_)).":$_\n"; }'
-       elif [ -n "$*" ]; then
-               perl -ne 'for (split("",$_)) { print sprintf("%3d",ord($_)).":$_\n"; }' $@
-       else
-               perl -e 'binmode(STDOUT, ":utf8"); for(32..255){ print "$_:".chr($_)."\n"; }'
-       fi
-
-}
-
 psmem() {
        local ps=`ps ax -O rss 2>/dev/null`
        echo "$ps"| awk "\