我需要更改包含某个字符串的 unix 文件的行

Question

我有一个使用定界符的带有固定格式行的文件。我想在第三个字段中识别所有带有字符串“密码”的行并将它们编辑出来。如，在它们的开头放一个“#”。 我还想删除第四个字段的现有值。 我不知道该怎么做。看起来应该可以分两步完成，但我无法解决。我正在使用 unix shell，所以 SED、AWK 等。 该文件的示例行是：

database2|~|t1||~|${topuser.username}|~|topuser
database2|~|t1||~|${topuser.password}|~|H4rdt0Gu3ss
database2|~|t1||~|${loguser.username}|~|LOG
database2|~|t1||~|${loguser.password}|~|Ih4v3n01d34y0utry
# database2|~|t1||~|${open.var1}|~|connect
database2|~|t1||~|${tablespace}|~|gis_tbs1

有些可能已经被编辑掉了，分隔符是“|~|”。 请帮忙。

Answer 1

这是一个实现目标的 Perl 脚本：

#!/usr/bin/perl

use warnings;
use strict;

while (<DATA>) {
    chomp;
    my @fields = split /\|~\|/;
    if ($fields[2] =~ /password/) {
        $fields[0] = "# $fields[0]";
        $fields[3] = '';
    }
    print join("|~|", @fields), "\n";
}

__DATA__
database2|~|t1||~|${topuser.username}|~|topuser
database2|~|t1||~|${topuser.password}|~|H4rdt0Gu3ss
database2|~|t1||~|${loguser.username}|~|LOG
database2|~|t1||~|${loguser.password}|~|Ih4v3n01d34y0utry
# database2|~|t1||~|${open.var1}|~|connect
# database2|~|t1||~|${tablespace}|~|gis_tbs1

这里是单行版本：

perl -F'/\|~\|/' -ane '$"="|~|"; if ($F[2] =~ /password/) { $F[0]="# $F[0]"; $F[3] = "\n"; } print "@F";' datafile

Answer 2

如果我正确理解了您的问题，那么以下内容应该有效：

$ awk 'BEGIN{FS=OFS="\|"}$6~/password/{$6="# "$6;$NF=""}1' file
database2|~|t1||~|${topuser.username}|~|topuser
database2|~|t1||~|# ${topuser.password}|~|
database2|~|t1||~|${loguser.username}|~|LOG
database2|~|t1||~|# ${loguser.password}|~|
# database2|~|t1||~|${open.var1}|~|connect
database2|~|t1||~|${tablespace}|~|gis_tbs1

如果您的意思是通过将 # 放在行首来编辑它们，那么您可以这样做：

$ awk 'BEGIN{FS=OFS="\|"}$6~/password/{$NF="";$0="# "$0}1' file
database2|~|t1||~|${topuser.username}|~|topuser
# database2|~|t1||~|${topuser.password}|~|
database2|~|t1||~|${loguser.username}|~|LOG
# database2|~|t1||~|${loguser.password}|~|
# database2|~|t1||~|${open.var1}|~|connect
database2|~|t1||~|${tablespace}|~|gis_tbs1