无法替换文件内容：Shell脚本中Perl修改INFA.param密码报错求助

错误原因 #

你执行的. ./temp.param（即source文件）是问题核心：

• Shell会解析文件里的$符号，$ParamUser是未定义的Shell变量，展开后为空，导致行变成=SOMEUSERNAME，Shell将其当作命令执行，触发“=SOMEUSERNAME: not found”错误
• $$是Shell的特殊变量（当前进程ID），展开后会替换成进程号，比如31850942，使得行变成31850942StartTime=...，同样被当作无效命令报错

正确实现方式 #

不需要source文件，直接用脚本提取原密码并替换，避免Shell解析文件中的$符号。

方案1：纯Perl实现（推荐） #

# 提取原密码
original_pswd=$(perl -ne 'print $1 if /^\$ParamPswd=(.*)/' INFA.param)
# 生成加密后的密码
pmcmdpassword=$(pmcmd "$original_pswd" -e CRYPTDATA)
# 直接修改原文件（-i参数会原地替换，加.bak可生成备份：-i.bak）
perl -i -pe "s#^\$ParamPswd=\Q$original_pswd\E#\$ParamPswd=$pmcmdpassword#g" INFA.param

方案2：用awk+sed实现 #

# 提取原密码
original_pswd=$(awk -F= '/^\$ParamPswd/ {print $2}' INFA.param)
# 生成加密后的密码
pmcmdpassword=$(pmcmd "$original_pswd" -e CRYPTDATA)
# 替换原文件内容
sed -i "s/^\$ParamPswd=$original_pswd/\$ParamPswd=$pmcmdpassword/" INFA.param

处理特殊字符的安全版 #

如果加密后的密码包含#、/或其他Shell特殊字符，用环境变量传递参数更安全：

original_pswd=$(perl -ne 'print $1 if /^\$ParamPswd=(.*)/' INFA.param)
pmcmdpassword=$(pmcmd "$original_pswd" -e CRYPTDATA)
# 通过环境变量传递密码，避免Shell解析特殊字符
perl -i -pe 'BEGIN {$old = $ENV{OLD}; $new = $ENV{NEW}} s/^\$ParamPswd=\Q$old\E/\$ParamPswd=$new/g' OLD="$original_pswd" NEW="$pmcmdpassword" INFA.param

内容的提问来源于stack exchange，提问作者Sudhir