some-usable-scripts/PERL_Language/humanornot2.pl

22 lines
374 B
Perl
Raw Normal View History

2011-02-03 13:47:29 +01:00
#!/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";