:
#######################################################
# prog6 - list 0-length files and core files
#######################################################

# see also mklist
masterlist=/usr/stevei/c/stat/master.list

cat $masterlist |
awk '
/core$/       { core++   ; print ; next }
/^...[sS]/    { setuid++ ; print ; next }
/^......[sS]/ { setgid++ ; print ; next }
{
    fsize=$7
    if ( fsize == 0 )
        { zerolen++ ; print }
}
END {
    printf("%10d core files\n", core)
    printf("%10d setuid files\n", setuid)
    printf("%10d setgid files\n", setgid)
    printf("%10d zero-length files\n", zerolen)

}'

