awk 或 perl 文件编辑&操纵

Question

我有一个标准的 passwd 文件 &用户映射文件 - 将 unix 名称（例如 jbloggs）与 AD 帐户名称（例如 bloggsjoe）映射，格式如下：
jbloggs bloggsjoe
杰史密斯·史密斯约翰
...等等
如何编辑 passwd 文件以将原始 unix 名称与 AD 帐户名称交换，以便 passwd 文件的每一行都有 AD 帐户名称。
感谢对 Perl 学习者的任何帮助。

Answer 1

#! /usr/bin/perl -T

use strict;
use warnings;
use File::Slurp 'slurp';

my ($map_file, $pass_file) = @ARGV or die 'No arguments given!';

my %ad_for;

for my $line (slurp($map_file)) {
    chomp $line;
    my ($unix, $ad) = split / /, $line;
    $ad_for{$unix} = $ad;
}

for my $line (slurp($pass_file)) {
    my ($name, @entries) = split /:/, $line;
    if ($ad_for{$name}) {
        print join ':', $ad_for{$name}, @entries;
    }
    else {
        warn "name $name doesn't have an ad entry\n";
    }
}

Answer 2

这是 awk oneliner 来做到这一点

$ cat map.txt
jbloggs bloggsjoe
jsmith smithjohn

$ cat passwd
root:x:0:0:root:/root:/bin/bash
jbloggs:x:493:484:Blogger:/var/run/lib:/sbin/nologin
jsmith:x:27:481:MySQL Server user:/var/lib/mysql:/bin/bash

$ awk -F":" 'FNR==NR{gsub(" +",":");m[$1]=$2;next}($1 in m){$1=m[$1]}1' OFS=":"  map.txt passwd
root:x:0:0:root:/root:/bin/bash
bloggsjoe:x:493:484:Blogger:/var/run/lib:/sbin/nologin
smithjohn:x:27:481:MySQL Server user:/var/lib/mysql:/bin/bash

Answer 3

使用 Perl，读入 AD 文件并填充 AD-Unix 散列，然后您可以使用该散列来执行单行替换。当然，这假设您没有重复的用户名。

（未经测试）

my %AD;

system ("perl -ane '$AD{$F[0]} = $F[1]' unixMap.txt");
system ("perl -i -ape 's/$F[0]/$AD{$F[0]}/' passwordFile.txt");

Answer 4

使用 Passwd::Unix。它将协调 /etc/passwd、/etc/ 的编辑影子，和 /etc/group 给你。在尝试编辑这些文件之前，请务必先对其进行备份。