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.

21 lines
352 B

#!/usr/bin/perl -w
use strict;
my $user;
my @util;
my @human;
my @inhuman;
setpwent();
while(@util=getpwent())
{
push @human, $util[0] if ($util[-1] =~ /sh$/);
push @inhuman, $util[0] if ! ($util[-1] =~ /sh$/);
}
endpwent();
print "\U\nThese accounts use human shells: \E\n@human\n";
print "\U\nThese accounts use human shells: \E\n@inhuman\n";