perl - 用另一个字符替换每第 n 次（和多次）出现的字符

有谁知道任何unix命令/perl脚本会在特定字符第n次重复出现的位置插入特定字符（可以作为十六进制（即7C）或实际字符（即|）输入）。 IEperl script.pl "," 3 "|" data.txt将用管道替换每个第 3 个、第 6 个、第 9 个...等逗号。

因此，如果 data.txt 在脚本运行之前有以下内容：

fd,3232,gfd67gf,
peas,989767,jkdfnfgjhf,
dhdhjsk,267,ujfdsy,fuyds,637296,ldosi,fduy,
873,fuisouyd,try
save,2837,ipoi

运行脚本后应该会出现以下内容：

fd,3232,gfd67gf|
peas,989767,jkdfnfgjhf|
dhdhjsk,267,ujfdsy|fuyds,637296,ldosi|fduy,
873,fuisouyd|try
save,2837,ipoi

小 perl hack 解决了这个问题。使用index函数查找逗号、模数以替换正确的逗号，以及substr执行替换。

use strict;
use warnings;

while (<>) {
    my $x=index($_,","); 
    my $i = 0; 
    while ($x != -1) {
        $i++; 
        unless ($i % 3) { 
            $_ = substr($_,0,$x) ."|". substr($_,$x+1); 
        }
        $x = index($_,",",$x + 1) 
    } 
    print;
}

运行与perl script.pl file.csv.

注意：您可以放置​​声明my $i之前while(<>)循环以便进行全局计数，而不是对每一行进行单独计数。不太确定我在这方面理解你的问题。