字符串每出现三次就加倍

Question

我有一个这样的文件：

Sed eleifend orci eget odio
consequat. Sed sagittis ipsum
eget pulvinar. Sed ut lacus
Sed luctus sollicitudin ligula
varius neque. Sed tincidunt
Sed mauris egestas eget. Sed
Curae; Sed aliquam enim Sed,
Sed dictum quis sem. Sed
volutpat tincidunt. Sed lacus.

我想把它转换成：

Sed eleifend orci eget odio
consequat. Sed sagittis ipsum
eget pulvinar. Sed Sed ut lacus
Sed luctus sollicitudin ligula
varius neque. Sed tincidunt
Sed Sed mauris egestas eget. Sed
Curae; Sed aliquam enim Sed Sed,
Sed dictum quis sem. Sed
volutpat tincidunt. Sed Sed lacus.

Answer 1

Perl 单行代码可以通过使用/e 修饰符来实现这一点，它允许基于逻辑的替换：

$ perl -pi.bak -e 'BEGIN{ $str = "Sed"; } s/(?<=$str)/ ++$cnt % 3 ? "" : " $str" /ge' file.txt

说明

• -pi.bak

  文件的逐行就地编辑。备份存储在 file.txt.bak

• BEGIN屏蔽

  指定$str的值，只执行一次

• s/PATTERN/REPLACEMENT/ge

  对$_ 中的所有匹配项逐行进行正则表达式替换。 REPLACEMENT 评估为 Perl 代码。

• (?<=$str)

  固定长度的后视断言

• ++$cnt % 3 ? "" : " $str"

  每三场比赛，追加" $str"，否则不追加任何内容

Answer 2

您也可以使用 awk 来做到这一点。

awk -v s=Sed '{for(i=1;i<=NF;i++) {if($i ~ s)cnt++; if(cnt==3) {cnt=0; printf("%s ", s)} printf("%s ", $i)} printf("\n")}' file.txt

输出

Sed eleifend orci eget odio 
consequat. Sed sagittis ipsum 
eget pulvinar. Sed Sed ut lacus 
Sed luctus sollicitudin ligula 
varius neque. Sed tincidunt 
Sed Sed mauris egestas eget. Sed 
Curae; Sed aliquam enim Sed Sed, 
Sed dictum quis sem. Sed 
volutpat tincidunt. Sed Sed lacus.

Answer 3

此脚本将参数作为要相乘的单词。去除标点符号将使计数准确，并避免重复的标点符号或换行符。我尽可能完整地保留了原始字符串。

use strict;
use warnings;

my $replace = shift || "";
my @all;
my %count;
while (<DATA>) {
    for (split / +/) {
        my $word = s/[^A-Za-z'-]+//gr;
        $count{$word}++;
        if (lc $word eq lc $replace && (($count{$word} % 3) == 0)) {
            push @all, $word;
        }
        push @all, $_;
    }
}

print "@all" =~ s/\n /\n/gr;

__DATA__
Sed eleifend orci eget odio
consequat. Sed sagittis ipsum
eget pulvinar. Sed ut lacus
Sed luctus sollicitudin ligula
varius neque. Sed tincidunt
Sed mauris egestas eget. Sed
Curae; Sed aliquam enim Sed,
Sed dictum quis sem. Sed
volutpat tincidunt. Sed lacus.

输出：

Sed eleifend orci eget odio
consequat. Sed sagittis ipsum
eget pulvinar. Sed Sed ut lacus
Sed luctus sollicitudin ligula
varius neque. Sed tincidunt
Sed Sed mauris egestas eget. Sed
Curae; Sed aliquam enim Sed Sed,
Sed dictum quis sem. Sed
volutpat tincidunt. Sed Sed lacus.

Answer 4

在看到您的评论说“只是用户选择的字符串而不是所有重复的字符串”之后：

import re
g = 0

def double_third(fname, st):
    def smart_replace(m):
        global g
        g += 1
        if g % 3 == 0:
            return "%s %s" % (st, st)
        else:
            return st

    with open(fname) as f:
        print re.sub(st, smart_replace, f.read())

double_third('file.txt', 'Sed')

Answer 5

这可能对你有用：

sed ':a;$!{N;ba};s/\<Sed\>/\x00/g;s/\(\x00\)[^\x00]*\1[^\x00]*\1/& \1/g;s/\x00/Sed/g' file

解释：

1. Slurp 文件到模式空间。
2. 在文件末尾用一个不太可能的字符全局替换所选字符串。
3. 全局替换其中出现 3 次不太可能的字符的每个字符串，同时附加不太可能的字符。
4. 用所选字符串全局替换不太可能的字符。

Answer 6

s/(\bSed\b.*?\bSed\b.*?\bSed\b)/$1 Sed/gsm