From: Nicolas Boisselier <nicolas.boisselier@semantico.com>
Date: Fri, 1 Jul 2016 11:21:50 +0000 (+0100)
Subject: txt2ascii
X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=62bd8500ebf9210652db6d1bf70f89a674c52188;p=nb.git

txt2ascii
---

diff --git a/etc/profile.d/functions b/etc/profile.d/functions
index ccf8a71a..a385b75e 100644
--- 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