expect send 特殊字符处理

使用 perl 脚本来转译特殊字符  这个脚本会在所有非 [A-Za-z_0-9] 的ASCII字符之前加上\

#/bin/sh
pstr='$x%y!zpass' # plain, un-escaped string
estr=$(perl -e 'print quotemeta shift(@ARGV)' "${pstr}")
echo ${estr}      # show escaped string