如果 /etc/passwd 对应的影子条目是 999999，如何从 /etc/passwd 中取出一行？

Question

我想将 passwd 文件中的每个用户与影子文件中的条目进行比较，如果影子文件中的条目与 999999 匹配，则打印出 passwd 文件的整行。Perl 中最简单的方法是什么？或者我想我可以 awk 从一个文件中取出值并在另一个文件中匹配？这样做的最佳方法是什么？

Answer 1

awk -F":" 'FNR==NR&&$5=="99999"{user[$1];next}($1 in user)' /etc/shadow /etc/passwd

将 FNR==NR&&$5=="99999" 更改为 FNR==NR&&$5=="99999"&&$2!="!!"< /code> 如果你想排除带“!!”的行

Answer 2

#! /usr/bin/perl

use warnings;
use strict;

sub read_passwd {
  open my $fh, "<", "/etc/passwd" or die "$0: open: $!";

  my %passwd;
  while (<$fh>) {
    next unless /^([^:]+)/;
    $passwd{$1} = $_;
  }

  \%passwd;
}

my $passwd = read_passwd;

open my $fh, "<", "/etc/shadow" or die "$0: open: $!";
while (<$fh>) {
  my($user,$maxage) = (split /:/)[0,4];
  next unless $maxage eq 99999;
  if ($passwd->{$user}) {
    print $passwd->{$user};
  }
  else {
    warn "$0: no passwd entry for '$user'";
  }
}

Answer 3

sudo perl -F: -lane '(1..eof)?($_{$F[0]}=$_):/999999/&&($_=$_{$F[0]})&&print' /etc/passwd /etc/shadow

Answer 4

您可以使用 AnyData::Format::Password：

#!/usr/bin/perl

use strict; use warnings;
use AnyData;

my $passwd = adTie(Passwd => 'passwd' );
my $shadow = adTie(Passwd => 'shadow' );

for my $user (keys %$shadow) {
    if ( $user->{fullname} and $user->{fullname} eq '999999' ) {
         print $passwd->{$user->{username}}{fullname}, "\n";
    }
}

输出：

...
Privilege-separated SSH
RPC Service User
Anonymous NFS User
HAL daemon

或:

for my $user (keys %$shadow) {
    if ( $user->{fullname} and $user->{fullname} eq '999999' ) {
        my @values = map { defined $_ ? $_ : '' }
            @{ $passwd->{$user->{username}} }{@fields};
        print join(':', @values), "\n";
    }
}