通过SSH在远程服务器运行Perl命令时文件重命名功能失效问题求助

问题根本原因 #

• Here Document（<< EOF）默认会在本地ksh执行阶段提前展开所有$开头的变量、以及反引号包裹的命令：
  • Perl代码里的$date、$_等Perl专属变量会被本地shell识别为未定义的shell变量，替换为空值，导致传到远程服务器的Perl代码完全失效
  • Perl内的date命令会在本地执行，而非目标远程服务器上执行，得到的是本地时间而非远程服务器时间
• 次要风险：直接解析ls输出处理文件名，遇到带空格、换行符的特殊文件名会执行失败

修复方案 #

方案1：禁用Here Document本地变量展开（推荐） #

如果你脚本里的${ARCHIVEPATH}、${ARCHIVERETENTIONDAYS}、${WLDCRD}这些变量都是在远程服务器上定义的，直接给EOF加单引号即可完全阻止本地shell提前解析内容：

#!/bin/ksh -x
ssh $RFTPUSERID@$RFTPSERVER /bin/bash >> ${LOGFILE} << 'EOF'
cd ${ARCHIVEPATH}
find  ${ARCHIVEPATH} -type f -mtime +${ARCHIVERETENTIONDAYS} -name "${WLDCRD}*" -exec rm -rf {} \;
ls ${ARCHIVEPATH} | grep -v gz$ | perl -lne 'use POSIX qw(strftime); $date=strftime("%Y%m%d_%H%M%S", localtime); `mv ${ARCHIVEPATH}$_ $_$date`;'
find ${ARCHIVEPATH} -type f ! -name "*.gz" -exec gzip {} \;
exit
EOF

注：这里同时把Perl调用系统date命令换成了Perl内置的时间函数，减少系统调用开销，避免嵌套引号冲突

方案2：手动转义Perl专属变量（适用于需要本地展开部分变量的场景） #

如果${ARCHIVEPATH}等变量是在本地ksh中定义的，需要保留本地展开能力，只需手动转义Perl代码中的$符号即可：

#!/bin/ksh -x
ssh $RFTPUSERID@$RFTPSERVER /bin/bash >> ${LOGFILE} << EOF
cd ${ARCHIVEPATH}
find  ${ARCHIVEPATH} -type f -mtime +${ARCHIVERETENTIONDAYS} -name "${WLDCRD}*" -exec rm -rf {} \;
ls ${ARCHIVEPATH} | grep -v gz$ | perl -lne 'use POSIX qw(strftime); \$date=strftime("%Y%m%d_%H%M%S", localtime); `mv ${ARCHIVEPATH}\$_ \$_\$date`;'
find ${ARCHIVEPATH} -type f ! -name "*.gz" -exec gzip {} \;
exit
EOF

可选优化：替换ls解析为find，兼容特殊文件名 #

将重命名逻辑的ls管道替换为find命令，避免特殊文件名导致的异常：

find ${ARCHIVEPATH} -maxdepth 1 -type f ! -name "*.gz" -printf "%f\n" | perl -lne '...'

内容的提问来源于stack exchange，提问作者Sharad R. Telkar