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.

27 lines
376 B

#!/usr/bin/perl -w
use strict ;
my $user ;
my @util ;
my @human ;
my @inhuman ;
foreach $user (`getent passwd`)
{
@util = split(':', $user);
if ( $util[-1] =~ /sh$/ )
{
push @human, $util[0];
}
else
{
push @inhuman, $util[0];
}
}
$"=', ';
print "\UThese accounts use human shells: \E\n@human\n";
print "\UThese accounts use inhuman shells: \E\n@inhuman\n";