1

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

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

#!/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 场用 FUDIK 替换 JAMES

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

我将不胜感激这方面的任何帮助

4

1 回答 1

3

这是一个 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;

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

于 2012-09-16T19:39:59.167 回答