使用sed仅更改连续重复的字母

Question

使用sed，如何将字母'a'更改为'A'，但前提是它重复显示为两个或多个连续字母。例如，来自：

galaxy
ear
aardvak
Haaaaaaaaa 

到

galaxy
ear
AArdvak
HAAAAAAAAA 

Answer 1

您可以使用群组进行操作。如果你有这个文件：

$ cat a
galaxy
ear
aardvak
Haaaaaaaaa 
Ulaanbaatar

您可以使用此sed命令：

$ sed 's/\(.\)\1\{1,\}/\U&/g' a
galaxy
ear
AArdvak
HAAAAAAAAA 
UlAAnbAAtar

这里发生了什么？如果我们有一个char，在一个组（\(.\)）中“打包”，并且该组（\1）重复一次或多次（\1\{1,\}），则替换匹配的部分（ &）其大写版本（\U&）。

Answer 2

修改
你可以这样做：

sed 's/a\(a\+\)/A\U\1/;s/b\(b\+\)/B\U\1/;s/c\(c\+\)/C\U\1/;s/d\(d\+\)/D\U\1/;s/e\(e\+\)/E\U\1/;s/f\(f\+\)/F\U\1/;s/g\(g\+\)/G\U\1/;s/h\(h\+\)/H\U\1/;s/i\(i\+\)/I\U\1/;s/j\(j\+\)/J\U\1/;s/k\(k\+\)/K\U\1/;s/l\(l\+\)/L\U\1/;s/m\(m\+\)/M\U\1/;s/n\(n\+\)/N\U\1/;s/o\(o\+\)/O\U\1/;s/p\(p\+\)/P\U\1/;s/q\(q\+\)/Q\U\1/;s/r\(r\+\)/R\U\1/;s/s\(s\+\)/S\U\1/;s/t\(t\+\)/T\U\1/;s/u\(u\+\)/U\U\1/;s/v\(v\+\)/V\U\1/;s/w\(w\+\)/W\U\1/;s/x\(x\+\)/X\U\1/;s/y\(y\+\)/Y\U\1/;s/z\(z\+\)/Z\U\1/'

（感谢 shelter ）

或使用sed管道：

function capitalize_consecutives () {
  sed 's/a\(a\+\)/A\U\1/' |
  sed 's/b\(b\+\)/B\U\1/' |
  sed 's/c\(c\+\)/C\U\1/' |
  sed 's/d\(d\+\)/D\U\1/' |
  sed 's/e\(e\+\)/E\U\1/' |
  sed 's/f\(f\+\)/F\U\1/' |
  sed 's/g\(g\+\)/G\U\1/' |
  sed 's/h\(h\+\)/H\U\1/' |
  sed 's/i\(i\+\)/I\U\1/' |
  sed 's/j\(j\+\)/J\U\1/' |
  sed 's/k\(k\+\)/K\U\1/' |
  sed 's/l\(l\+\)/L\U\1/' |
  sed 's/m\(m\+\)/M\U\1/' |
  sed 's/n\(n\+\)/N\U\1/' |
  sed 's/o\(o\+\)/O\U\1/' |
  sed 's/p\(p\+\)/P\U\1/' |
  sed 's/q\(q\+\)/Q\U\1/' |
  sed 's/r\(r\+\)/R\U\1/' |
  sed 's/s\(s\+\)/S\U\1/' |
  sed 's/t\(t\+\)/T\U\1/' |
  sed 's/u\(u\+\)/U\U\1/' |
  sed 's/v\(v\+\)/V\U\1/' |
  sed 's/w\(w\+\)/W\U\1/' |
  sed 's/x\(x\+\)/X\U\1/' |
  sed 's/y\(y\+\)/Y\U\1/' |
  sed 's/z\(z\+\)/Z\U\1/' 
}

然后让它解析你的文件：

capitalize_consecutives < myfile

\U是大概出现的。我想这只适用于GNU sed。