bash - 在 shell 脚本中使用 Perl 单行代码

Question

这让我沮丧了好几个小时。我围绕 Perl 单行代码编写了一个简单的包装器来更新某些 DNS 区域文件中的序列号。

我觉得有必要补充一下:- 不要提供其他方法来做到这一点，好吗？这是关于为什么这行不通，而不是关于如何通过其他方式实现结果。

这是我的简单脚本

#!/bin/bash
#loop through the supplied files updating the timestamp (serial)
SERIAL=`date +%Y%m%d%H%M`;
for name in $@
do
saCMD="'s/^(\W*)\d*.*;\W*serial/\${1}$SERIAL ; serial/g'"
#echo the command 
echo "perl -pi -e "$saCMD" $name"
#execute the command
`perl -pi -e $saCMD $name`
done
  

我已经尝试了多种不同的方式，但都以静默方式或消息方式失败

Can't find string terminator "'" anywhere before EOF at -e line 1..

如果我执行回显命令，它会完美运行

我在 Debian 7 系统上

谁能告诉我为什么这没有像我期望的那样执行？

编辑:

一些示例数据

$TTL 300
domain.org. IN SOA     ns1.domain.com. admin.domain.org. (
                2014090914      ; serial, todays date+todays
                7200            ; refresh, seconds
                7200            ; retry, seconds
                2419200         ; expire, seconds
                3600 )          ; minimum, seconds        

感兴趣的行是 2014090914 ；序列号，今天日期+今天

Answer 1

至少有一个引用问题。您将单引号作为 saCMD="'s...'" 的一部分。它们不会被 shell 删除，而是传递给 perl，如您在 echo 输出中所见。

此外，

#execute the command
`perl -pi -e $saCMD $name`

可能有无用的反引号。或者您还想运行 perl 脚本输出的命令吗？要调试 shell 脚本，请将 set -x 放在开头。

这在这里有效:

#!/bin/bash
SERIAL=$(date +%Y%m%d%H%M)
for name in "$@"; do
  saCMD="s/^(\W*)\d*.*;\W*serial/\${1}$SERIAL ; serial/"
  perl -pi -e "$saCMD" "$name"
done

并将您的示例数据转换为

$TTL 300
domain.org. IN SOA     ns1.domain.com. admin.domain.org. (
                201508201330 ; serial, todays date+todays
                7200            ; refresh, seconds
                7200            ; retry, seconds
                2419200         ; expire, seconds
                3600 )          ; minimum, seconds