想要根据同一文件中另一列中的值就地编辑文件（替换列值）

Question

我想根据同一文件中另一列中的值编辑文件（替换列值）。我不想在替换到另一个文件后重定向输出，而是想就地编辑文件。特别需要这个，因为需要编辑的文件不会被任何程序同时访问，因此必须进行就地编辑

我尝试了下面的代码。但这又是逐行写入输入文件

#!/usr/bin/perl -w

open(FILEIN, "/dummy/chaat/h2") || die("Cannot open file");
@file = <FILEIN>;
seek FILEIN, 0, 0;

foreach $file (@file) {
    @field = split(/\|/, $file);
    print $field[8] . "\n";
    if ($field[8] eq "ROBERT") {
        $file =~ s/JAMES/FUDIK/g;
        print FILEIN $file;
    }
}

我的示例记录如下所示。在这里，我想对此进行内联编辑。如果字段 8 是 ROBERT，则在字段 7 中将 JAMES 替换为 FUDIK

Change|sinmg|ewfewf|ewfew|def|fdfd|JAMES|rewr|ROBERT|dsf|fe
Change|sinmg|ewfewf|ewfew|def|JAMES|fewf|rewr|BEASLEY|dsf|fe

如果有任何帮助，我将不胜感激

Answer 1

这是一个 perl 单行代码：

perl -F'\|' -i -lape 'if ($F[8] eq "ROBERT") { s/JAMES/FUDIK/g }' /dummy/chaat/h2

-i 选项将进行就地编辑。您可能希望限制替换以避免部分匹配，例如：

s/(?<=\|)JAMES(?=\|)/FUDIK/g

或者您可以使用-n 开关而不是-p 并执行

s/JAMES/FUDIK/g for @F } print join "|", @F;

您应该知道，这种就地编辑实际上是在编写一个新文件，并复制旧文件。如果你想避免这种情况，你需要做一些认真的杂耍，并且可能在写入过程中锁定文件。