将匹配的值传递给函数，并替换为返回值

Question

如何让 Bash 匹配正则表达式，而不是用常量字符串替换值，而是将匹配的值传递给函数，然后从返回值中获取要替换的值函数。

类似于以下伪代码，它将[a-d] 的每个匹配项替换为相同的字符，但大写：

function uppercase() { echo ${1^^}; }
string="abcdefgh123cbazyz"
echo ${string//[a-d]/uppercase()}
# output: ABCDef123CBAzyz

我并不特别，任何通常安装在 Unix 系统上的语言（例如 sed、awk，甚至是 bash 中内置的有限正则表达式支持）都可以使用。

Answer 1

您可以为此使用 Perl：

perl -lape 's/([a-d])/`uppercase $1`/eg' <<< "$string"

但这需要一个名为uppercase 的可执行脚本。 Perl e (eval) 标志在匹配时对匹配执行命令。

通过 sed 的另一种方式：

function uppercase() { 
    echo ${1^^} 
}
export -f uppercase
string="abcdefgh123cbazyz"
echo "echo $(sed 's/\([a-d]\)/$(uppercase \1)/g' <<< "$string")" | sh

Answer 2

使用tr:

echo abcdefgh123cbazyz | tr '[a-d]' '[A-D]'

或sed:

echo abcdefgh123cbazyz | sed -r 's|[a-d]|\U&|g'

输出：

ABCDefgh123CBAzyz

更新

用Ruby回调：

puts "abcdefgh123cbazyz".gsub(/[a-d]/){ |m| m.upcase }

使用Python 调用：

import re

s = "abcdefgh123cbazyz"

def repl(m):
    return m.upper()

print(re.sub('\[\[:(.+?):\]\]', repl, s))

用Perl回调：

my $s = "abcdefgh123cbazyz";
$s =~ s/([a-d])/uc($1)/eg;
print "${s}\n";

输出：

ABCDefgh123CBAzyz

Answer 3

Bash 不能在 parameter expansion 中使用用户定义的函数。

要完成您想要的，请使用 pattern matching 并修改大小写：

string="abcdefgh123cbazyz"
echo ${string^^[a-d]}

输出：

ABCDefgh123CBAzyz

Answer 4

在 Perl 中，您可以使用 e 标志捕获组并将其传递给这样的子例程：

perl -pe 'sub callback { return uc $_[0] } s/([a-d])/callback $1/eg' <<<"$string"

字符串的输出：

ABCDefgh123CBAzyz

这里我刚刚为现有函数uc 提供了我自己的包装器，它返回将字母转换为大写。你可以改变子程序的主体来做任何你想做的事情。

Answer 5

FWIW 以下是您在 GNU awk 中的操作方式（对于 split() 的第 4 个参数）：

$ cat tst.awk                                                
function uppercase(str) { return toupper(str) }
{
    split($0,flds,/[a-d]/,seps)
    for (i=1;i in flds; i++) {
        printf "%s%s", flds[i], uppercase(seps[i])
    }
    print ""
}

$ echo "abcdefgh123cbazyz" | gawk -f tst.awk
ABCDefgh123CBAzyz

或使用任何 awk：

$ cat tst.awk                                                
function uppercase(str) { return toupper(str) }
{
    while ( match($0,/[a-d]/) ) {
        printf "%s%s", substr($0,1,RSTART-1), uppercase(substr($0,RSTART,RLENGTH))
        $0 = substr($0,RSTART+RLENGTH)
    }
    print
}

$ echo "abcdefgh123cbazyz" | awk -f tst.awk
ABCDefgh123CBAzyz