我有一个明文文件，其中包含多个模式实例$$DATABASE_*$$，而星号可以是任意字符串。 我想用小写的星号部分替换整个实例。
这是一个测试文件：
$$DATABASE_GIBSON$$
test me $$DATABASE_GIBSON$$ test me
$$DATABASE_GIBSON$$ test $$DATABASE_GIBSON$$ test
$$DATABASE_GIBSON$$ $$DATABASE_GIBSON$$$$DATABASE_GIBSON$$
这里是所需输出：
gibson
test me gibson test me
gibson test gibson test
gibson gibsongibson
这是我最终使用的 Perl 版本。
perl -p -i.bak -e 's/\$\$DATABASE_(.*?)\$\$/lc($1)/eg' inputFile
* 包含换行符，则无法正常工作。 - mschilli这个可以处理复杂的例子。
perl -ple 's/\$\$DATABASE_(.*?)\$\$/lc($1)/eg' filename.txt
而对于更简单的例子：
echo '$$DATABASE_GIBSON$$' | sed 's@$$DATABASE_\(.*\)\$\$@\L\1@'
\L表示小写（如果需要，使用\E停止）。很遗憾，使用awk没有简单、万无一失的方法，但这里有一种方法：
$ cat tst.awk
{
gsub(/[$][$]/,"\n")
head = ""
tail = $0
while ( match(tail, "\nDATABASE_[^\n]+\n") ) {
head = head substr(tail,1,RSTART-1)
trgt = substr(tail,RSTART,RLENGTH)
tail = substr(tail,RSTART+RLENGTH)
gsub(/\n(DATABASE_)?/,"",trgt)
head = head tolower(trgt)
}
$0 = head tail
gsub("\n","$$")
print
}
$ cat file
The quick brown $$DATABASE_FOX$$ jumped over the lazy $$DATABASE_DOG$$s back.
The grey $$DATABASE_SQUIRREL$$ ate $$DATABASE_NUT$$s under a $$DATABASE_TREE$$.
Put a dollar $$DATABASE_DOL$LAR$$ in the $$ string.
$ awk -f tst.awk file
The quick brown fox jumped over the lazy dogs back.
The grey squirrel ate nuts under a tree.
Put a dollar dol$lar in the $$ string.
awk gawk吗？如果我没记错，POSIX awk不支持正则表达式（RE）记录分隔符（RS）。如果你使用gawk进行测试，你得到了什么输出结果，你使用的是哪个版本？ - mschilligibson gibson，没有终止换行符，而不是输出 gibson gibsongibson 并带有一个终止换行符。 - Ed MortonORS为空，缺少终止换行符。因此，赋值语句被评估为false，未触发打印操作。我通过将赋值语句包装到一个无条件的动作中，并使用1习惯用语添加了一个无条件的print来修复这个问题。然而，对于我来说，$$DATABASE_GIBSON$$$$DATABASE_GIBSON$$部分已经像预期的那样转换为gibsongibson。您能否再次检查您的最新版本是否仍然存在这种情况？我使用的是gawk 4.0.2，所以可能自那时以来有所改变。我稍后会尝试使用最新的gawk。谢谢。 - mschilli$。现在它可以工作了，看起来很好。 - Ed Morton仅使用awk：
> echo '$$DATABASE_AWESOME$$' | awk '{sub(/.*_/,"");sub(/\$\$$/,"");print tolower($0);}'
awesome
[ghoti@pc ~]$ foo='$$DATABASE_AWESOME$$'
[ghoti@pc ~]$ foo=${foo##*_}
[ghoti@pc ~]$ foo=${foo%\$\$}
[ghoti@pc ~]$ foo=${foo,,}
[ghoti@pc ~]$ echo $foo
awesome
${foo,,})，其他都适用于标准 Bourne shell。如果你没有 bash，你可以使用 tr 来完成这一步骤：$ echo $foo
AWESOME
$ foo=$(echo "$foo" | tr '[:upper:]' '[:lower:]')
$ echo $foo
awesome
$
更新:
根据评论，似乎OP真正想要的是从任何包含它的文本中去除子字符串--也就是说，我们的解决方案需要考虑在他在问题中提供的字符串之前或之后存在可能的前导或尾随空格。
> echo 'foo $$DATABASE_KITTENS$$ bar' | sed -nE '/\$\$[^$]+\$\$/{;s/.*\$\$DATABASE_//;s/\$\$.*//;p;}' | tr '[:upper:]' '[:lower:]'
kittens
如果你在路径中有 pcregrep（从devel/pcre FreeBSD端口安装），你可以使用它，带上后顾和前瞻：
> echo 'foo $$DATABASE_KITTENS$$ bar' | pcregrep -o '(?!\$\$DATABASE_)[A-Z]+(?=\$\$)' | tr '[:upper:]' '[:lower:]'
kittens
$ shopt -s extglob
$ foo='foo $$DATABASE_KITTENS$$ bar'
$ foo=${foo##*(?)\$\$DATABASE_}
$ foo=${foo%%\$\$*(?)}
$ foo=${foo,,}
$ echo $foo
kittens
你可以使用超酷的 cut 命令以相当可靠的方式完成这个任务 :)
echo '$$DATABASE_AWESOME$$' | cut -d'$' -f3 | cut -d_ -f2 | tr 'A-Z' 'a-z'
sed 's/$\$/\n/g;s/\nDATABASE_\([^\n]*\)\n/\L\1/g;s/\n/$$/g' file
awk '{gsub(/\$\$DATABASE_GIBSON\$\$/,"gibson")}1' file
gibson
test me gibson test me
gibson test gibson test
gibson gibsongibson
这是我能想到的最短的（GNU）awk解决方案，它可以完成OP请求的所有操作：
awk -vRS='[$][$]DATABASE_([^$]+[$])+[$]' '{ORS=tolower(substr(RT,12,length(RT)-13))}1'
即使带星号（*）的字符串中包含一个或多个美元符号（$）和/或换行符，此解决方案仍应有效。
echo $$DATABASE_WOOLY$$ | awk '{print tolower($0)}'
awk 会接受任何输入，这里是第一个参数，并使用 tolower 函数返回结果。
对于您的 bash 脚本，您可以像这样做并使用变量 DBLOWER：
DBLOWER=$(echo $$DATABASE_WOOLY$$ | awk '{print tolower($0)}');
$$DATABASE_*$$替换为*。此外，它会将所有输入转换为小写。 - mschilli