求助中文替换问题

[helex]

在网上找了很久，实在找不到答案了，特求各位解决一下。
要处理内容：
=======================
【3月3日】啊不错的风景，xx，不错的风景
【3月12日】淡淡的淡淡的发发发发发，xx，啊啊啊啊啊啊啊宝贝宝贝
【3月31日】麻烦就看看，谢谢，xx，开阶立极；就；就；

问题：
想将每行中的‘xx’替换成每行开头‘【3月X日】’的内容。
我的思路如下，但不知道怎么实现？
先搜索符合‘【】’内容，然后放到一个变量或寄存器内，再用替换命令。

[eexpress]

正则替换，使用$1而已。$1是上次正则的第一个结果。

代码： 全选

● xsel -o|perl -e 'while(<STDIN>){/【(.*)】/;$c=$1;s/xx/$c/;print;}'【3月3日】啊不错的风景，3月3日，不错的风景
【3月12日】淡淡的淡淡的发发发发发，3月12日，啊啊啊啊啊啊啊宝贝宝贝
【3月31日】麻烦就看看，谢谢，3月31日，开阶立极；就；就；

[cao627]

楼主的问题可概括为这样一种普遍问题：
如何将匹配到的各行上的文本（这个文本可用一个正则表达式(设为REa)匹配到），替换为相应行上其他位置相应的文本（这个文本可用另一个正则表达式(设为REb)匹配到）。

代码： 全选

perl -pi -e '/(REb)/;$c=$1;s/REa/$c/g' txtfile

2楼能不能解释下为什么要：
'/【(.*)】/;$c=$1;s/xx/$c/g'
而不能直接：
'/【(.*)】/;s/xx/$1/g'
我用'/【(.*)】/;s/xx/$1/g'试了下 它只是将xx给删除了，为什么要$c=$1过度一下呢？

[helex]

两位说的是Vim的命令吗？
我想在vim中实现。另外，一行中可能有多个xx需要替换。

[lilydjwg]

两位说的是Vim的命令吗？
我想在vim中实现。另外，一行中可能有多个xx需要替换。

代码： 全选

:perldo xxx

或者

代码： 全选

:%!perl -pi -e xxx

其实就是正则而已，学会了都一样的。

[aerofox]

Vim:

代码： 全选

:%s/【\([^】]*\)】.*\zsxx/\1

但是每行只替换一次，要替换多次，只好重复多次这条命令，如果是放到脚本中，可以在后面加 /e 防止报错。

sed：

代码： 全选

sed ':start;s/\(【\([^】]*\)】.*\)xx/\1\2/;t start'

[lilydjwg]

Vim:

代码： 全选

:%s/【\([^】]*\)】.*\zsxx/\1

但是每行只替换一次，要替换多次，只好重复多次这条命令，如果是放到脚本中，可以在后面加 /e 防止报错。

代码： 全选

:%s/\<xx\>/\=matchstr(getline('.'), '^【\zs[^】]*\ze】')/g

[eexpress]

楼主的问题可概括为这样一种普遍问题：
如何将匹配到的各行上的文本（这个文本可用一个正则表达式(设为REa)匹配到），替换为相应行上其他位置相应的文本（这个文本可用另一个正则表达式(设为REb)匹配到）。

代码： 全选

perl -pi -e '/(REb)/;$c=$1;s/REa/$c/g' txtfile

2楼能不能解释下为什么要：
'/【(.*)】/;$c=$1;s/xx/$c/g'
而不能直接：
'/【(.*)】/;s/xx/$1/g'
我用'/【(.*)】/;s/xx/$1/g'试了下 它只是将xx给删除了，为什么要$c=$1过度一下呢？

$1是上一次的结果1。那s///一来，就冲掉了。

[cao627]

$1是上一次的结果1。那s///一来，就冲掉了。

懂了，谢谢。

代码： 全选

sed ':start;s/\(【\([^】]*\)】.*\)xx/\1\2/;t start'

代码： 全选

sed ':start;sed ':start;s/\(【\([^】]*\)】.*\)xx/\1\2/;t start';t start'

学习！

s/\(【\([^】]*\)】.*\)xx/\1\2/
挺巧妙的！

[aerofox]

代码： 全选

:%s/\<xx\>/\=matchstr(getline('.'), '^【\zs[^】]*\ze】')/g

这个高！学习了。
不知如果一行有 xx 而没有【】会不会有问题，不过如果有问题，吧 % 换成 g/^【[^】]*】/ 也可以解决。

[aerofox]

$1是上一次的结果1。那s///一来，就冲掉了。

懂了，谢谢。

代码： 全选

sed ':start;s/\(【\([^】]*\)】.*\)xx/\1\2/;t start'

代码： 全选

sed ':start;sed ':start;s/\(【\([^】]*\)】.*\)xx/\1\2/;t start';t start'

学习！

s/\(【\([^】]*\)】.*\)xx/\1\2/
挺巧妙的！

下面那一行 sed 代码我倒看不懂了，是拷贝+粘贴的故障码？

[lilydjwg]

代码： 全选

:%s/\<xx\>/\=matchstr(getline('.'), '^【\zs[^】]*\ze】')/g

这个高！学习了。
不知如果一行有 xx 而没有【】会不会有问题，不过如果有问题，吧 % 换成 g/^【[^】]*】/ 也可以解决。

如果没有六角括号的话 xx 会直接消失吧。用 g 的办法不错。

[cao627]

下面那一行 sed 代码我倒看不懂了，是拷贝+粘贴的故障码？

是：s/\(【\([^】]*\)】.*\)xx/\1\2/ 吗？

还有这种用法的机理不是很懂，我想请教下你

如文本如下：

yyaaaxxbbb

在其上执行 s's/\(yy.*\)xx/\1/'
得到的结果为：
yyaaabbb

我的理解（以下有色字为匹配和替换的内容）：
\(yy.*\)xx匹配到的是：yyaaaxxbbb
yy.*匹配到的是：yyaaaxxbbb

\1 = yy.*
所以结果好像应该是yyaaaxxbbbbbb

[aerofox]

下面那一行 sed 代码我倒看不懂了，是拷贝+粘贴的故障码？

是：s/\(【\([^】]*\)】.*\)xx/\1\2/ 吗？

还有这种用法的机理不是很懂，我想请教下你

如文本如下：

yyaaaxxbbb

在其上执行 s's/\(yy.*\)xx/\1/'
得到的结果为：
yyaaabbb

我的理解（以下有色字为匹配和替换的内容）：
\(yy.*\)xx匹配到的是：yyaaaxxbbb
yy.*匹配到的是：yyaaaxxbbb

\1 = yy.*
所以结果好像应该是yyaaaxxbbbbbb

\(yy.*\)xx 是一个整体，yy.* 是其中的一部分，你不能部分大于整体。
我说的不懂的sed代码当然不是我自己贴的，是指你贴的：

代码： 全选

sed ':start;sed ':start;s/\(【\([^】]*\)】.*\)xx/\1\2/;t start';t start'

[cao627]

代码： 全选

sed ':start;sed ':start;s/\(【\([^】]*\)】.*\)xx/\1\2/;t start';t start'

是我贴错了，没注意

\(yy.*\)xx 是一个整体，yy.* 是其中的一部分，你不能部分大于整体

看来：
\( \)xx中的\( \)是在\( \)xx匹配得到内容的基础上排除掉括号外xx（当然这里xx代表字符本身，但也可替换为表达式）匹配得到的内容，然后在这之上做\( \)内表达式的匹配。

做如上理解就顺了。

做下概括：
在txtfile中 ，如何将匹配到的各行上的文本（这个文本可用一个正则表达式(设为REa)匹配到），替换为相应行上其他位置相应的文本（这个文本可用另一个正则表达式(设为REb)匹配到）

方法 1
用sed命令

代码： 全选

sed 's/\(otherRE\( REb \) otherRE \)REa/\1\2/' txtfile

其中\(otherRE\( REb \) otherRE \)要确保能匹配到行首到REa匹配到字符之前的全部内容