You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

22 lines
374 B

#!/usr/bin/perl -w
use strict;
my $user;
my @util;
my @human;
my @inhuman;
open(USERS,"getent passwd |") || die "$!";
while(<USERS>)
{
@util = split(':', $_);
push @human, $util[0] if (/sh$/);
push @inhuman, $util[0] if ! (/sh$/);
}
close USERS;
print "\U\nThese accounts use human shells: \E\n@human\n";
print "\U\nThese accounts use human shells: \E\n@inhuman\n";