|
- #!/usr/bin/perl
-
- use warnings;
- use strict;
-
- my $fn;
- my $cmd_out;
-
- my $dn;
- my @hd;
-
- $dn = "/home/";
-
- opendir MYDIR, $dn or die "could not open $dn";
- @hd = readdir MYDIR;
- closedir MYDIR;
-
- @hd = grep {!($_ =~ /^\..*$/)} @hd;
-
- $fn = "/tilde/lyadmin/user_list.txt";
-
- open FILE, "<", $fn or die "could not open $fn";
-
- while(<FILE>){
- chomp;
-
- unless(exists( {map { $_ => 1} @hd}->{$_})){
- printf("Deleting user %s\n", $_);
- `userdel $_`;
- }
- }
- close FILE
|