txt2ascii

diff --git a/etc/profile.d/functions b/etc/profile.d/functions
index ccf8a71a0568aa59f601fcbb2431506e42b836ab..a385b75ec58821210144a924e43d767b6c71f615 100644 (file)
--- a/etc/profile.d/functions
+++ b/etc/profile.d/functions
@@ -132,6 +132,18 @@ unzipurl() {
    rm "$file"
 }
 
+txt2ascii() {
+  in="cat"
+  [ -z "$@" ] || in="echo \"$@\""
+  $in | perl -e '
+while (<>) {
+  for (split("",$_)) {
+    print sprintf("\%3d",ord($_)).":$_\n";
+  }
+}
+'
+}
+
 bytes2h() {
   declare in args