perl-for-cntrl-chars

Author: Joe Schaefer

kubectl-node_shell

@@ -8,7 +8,7 @@ node=""
 nodefaultctx=0
 nodefaultns=0
 cmd='[ "nsenter", "--target", "1", "--mount", "--uts", "--ipc", "--net", "--pid", "--"'
-if ! [ -p /dev/stdin ] && ! [ -p /dev/stdout ]; then
+if [ -t 0 ]; then
   tty=true
 else
   tty=false
@@ -75,7 +75,7 @@ done
 if [ $# -gt 0 ]; then
   while [ $# -gt 0 ]; do
     cmd="$cmd, \"$(echo "$1" | \
-      awk '{gsub(/\\/,"\\\\");gsub(/"/,"\\\"");gsub(/$/,"\\n");printf last}{last=$0} END{gsub(/\\n/,"",last);printf last}' \
+    perl -pl -0777 -e 's/([\\"])/\\$1/g;s/\n$//;s/\n/\\n/g;s/([\x01-\x1f])/sprintf "\\u%04x",ord $1/ge' \
     )\""
     shift
   done