Как я могу вытащить строку из/etc/passwd, если его соответствующая теневая запись 999999?

Question

Как я могу вытащить строку из/etc/passwd, если его соответствующая теневая запись 999999?

Я хочу сравнить каждого пользователя в passwd файле с его записью в теневом файле и распечатать целую строку passwd файла, если запись в теневом файле соответствует 999999. Каков самый легкий путь в Perl, чтобы сделать это? Или я предполагаю, что мог awk значения из одного файла и соответствия в другом файле? Каков лучший способ сделать это?

5

perl awk

задан brian d foy 24 February 2010 в 22:25

4 ответа

Другие вопросы по тегам:

perl awk

Похожие вопросы:

score 3 · 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! = "!!" , если вы хотите исключить строки с "!!"

score 0 · Answer 2

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

0

ответ дан 14 December 2019 в 19:11

score 2 · Answer 3

#! /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'";
  }
}

score 0 · 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";
    }
}