如何使用Bash脚本仅在perl脚本中插入一行新代码

Question

我有一个混合了shell，Perl和Python脚本的Linux文件夹树。 这些脚本都没有一致的文件扩展名（.pl，.perl，.py，.sh或根本没有扩展名）。 我需要确定哪些文件是Perl脚本，然后如果该变量不在Perl脚本中，则添加一行新代码来设置一个变量。

感谢如何在'），（`中用sed插入逗号后的换行符？我想到了使用sed插入新行代码的代码。

这段代码有效，但是有更有效的方法吗？

#! /bin/bash

NL='
$|++'

for f in `find "$1" -type f`
do
    if [ $(grep -cP "^\#\!/.+/perl" "${f}") -gt 0 ]
    then
        if [ $(grep -c "$|" "${f}") -eq 0 ]
        then
            sed -i -r "s/^#!\/(.+)\/perl(.+)$/#!\/\1\/perl\2\\${NL}/g" "${f}"
        fi
    fi
done

Answer 1

那里有许多Grep -c的无用用法。 参见http://porkmail.org/era/unix/award.html

#! /bin/bash

NL='
$|++'

for f in `find "$1" -type f`
do
    grep -qP "^\#\!/.+/perl" "${f}" &&
    ! grep -q "$|" "${f}" &&
    sed -i -r "s/^#!\/(.+)\/perl(.+)$/#!\/\1\/perl\2\\${NL}/g" "${f}"
done

短路&&并非优化，只是个人喜好。 你也可以嵌套嵌套if或类似的东西

    if grep -qP "^#!/.+/perl" "$f" && ! grep -q "$|" "$f"; then ...

仍然（至少）在sed脚本中进行第一个grep可能仍然更有效率，因为大概您只对脚本的第一行感兴趣。 （另一方面，如果是这种情况，为什么在sed替换项上有一个/g标志？）

其实你可能是说

    sed -i -r "1s%^(#!/.+/perl.*)$%\1\\${NL}%" "$f"

Answer 2

您也可以使用file(1)命令：

$ head -n 1 perl_script_wo_ext
#!/usr/bin/perl
$ file perl_script_wo_ext
perl_script_wo_ext: Perl script, ASCII text executable

然后在其中使用\\bPerl script\\b grep进行设置。