sssh - sane(r) ssh

sssh

#!/bin/sh
# sssh - sane(r) ssh
#
# executes a remote command (more) sanely by passing the arguments url-like
# escaped (foo%23bar for "foo#bar") and unpacking them on the remote side
# with perl again.

if [ "$#" -lt 2 ]; then
    echo "Usage: $0 <host> <command> [arguments...]" >&2
    exit 1
fi

host="$1"; shift
exec ssh "$host" "perl -le 's/%(..)/chr hex \$1/ge for @ARGV; exec { \$ARGV[0] } @ARGV or die \$!.\$/' --" \
$(perl -le 'for (@ARGV) { s/[^A-Za-z0-9,.-]/sprintf("%%%02x", ord $&)/ge; print }' -- "$@")