Shell Programming and Scripting

matt:1:2:3
kristen:1:2:3
curt:1:2:3
jennifer:1:2:3

jennifer:1:2:3
kristen:1:2:3
curt:1:2:3

#!/usr/bin/perl

# names in file1 not in file2
foreach (@names=`cut -d ':' -f1 file1`) {
        chomp(@names);
        $count = `grep -c $_ file2`;
        if ($count == 0)        {
                print "$_ is in file1 but not file2.\n";
        }
}

$ ./cleanup.pl
matt is in file1 but not file2.
$

awk ' FNR==NR{for (h=4;h<=NF;h++)a[$h]=n;next}b[$1]=n
END {for (i in a)if ((!(i in b))&&(i != "")) print i" in group file but not in passwd"
}' FS="(:)|(,)"  /etc/group /etc/passwd

awk ' FNR==NR{for (h=4;h<=NF;h++)if(match($h,/^[A-Za-z][0-9]{4}$/))a[$h]=n;next}b[$1]=n
END {for (i in a)if ((!(i in b))&&(i != "")) print i" in group file but not in passwd"
}' FS="(:)|(,)" /etc/group /etc/passwd