Shell Programming and Scripting

> cat determine_files 
#! /usr/bin/bash

ls -l | grep "^d" | awk '{print $9}' | grep -v "^\." >P_WORK_DIR
while read P_DIR
   do
#   echo $P_DIR
   P_WORK_LIST=$(ls $P_DIR | cut -d"." -f2 | sort | uniq -c | tr "\n" "," | tr -s " " )
   echo $P_DIR" ("$P_WORK_LIST")"
done <P_WORK_DIR

> determine_files 
delete_extra ( 1 file100, 1 file101, 1 file102, 1 file103, 1 keep_two, 7 xml,)
files_with_spaces ( 1 f_list, 1 file 04, 1 file01, 1 see_blanks,)
indic_file ( 8 TXT, 1 makes, 1 sh,)
pass_var ( 1 file1, 1 sh,)
resnum ( 1 other0, 1 res0, 1 res1, 1 res19, 1 res2, 1 res4, 1 res666, 1 res9,)
scsi35 ( 1 35file, 1 dsk, 1 tmp,)

find $1  -type d | while read DIR ; do
  echo "$DIR"
  ls -l "$DIR" | awk -F. '$2 !~/^$/{print $2}' | sort | uniq -c | tr "\n" "," | tr -s " "
  echo
done

/home/nobody/var/www/manual/mod
 204 html,
/home/nobody/var/www/manual/mod/mod_python
 1 css, 99 html,
/home/nobody/var/www/manual/mod/mod_python/icons
 7 gif, 7 png,

ls -l | grep "^d" | awk '{print $9}' | grep -v "^\." >P_WORK_DIR

for file in `ls`
do
file $file
done

sh filetype.sh  > typeofeachfileindir.txt
sed -n -e 's/.*: \(.*\)/\1/p' typeofeachfileindir.txt | sort | uniq > filetypesindir.txt

cat filetypesindir.txt | while read filetype
do
cat typeofeachfileindir.txt | grep $filetype | wc -l | echo -n $filetype": "
done
rm typeofeachfileindir.txt
rm filetypesindir.txt

find . -type d |
  perl -nle'
    map @_{/([^.]+?)$/}++, grep -f, glob "$_/*.*";
    print "\t---> $_\n", join ", ", map "$_: $_{$_}", keys %_;
	undef %_
    '