pkginfo.sh

#!/bin/sh
# stuart powers
 
# list the files installed from a specific package or all
# packages which match /pattern/ # one line of output per file:
# [exe|dir|pipe|etc]   $PACKAGE    $FILE

#to see all the executable files from libwww-perl:
#stu@sente ~ $ pkginfo.sh libwww-perl | grep ^x | cut -f3
#     /usr/bin/lwp-download
#     /usr/bin/lwp-mirror
#     /usr/bin/lwp-rget
#     /usr/bin/lwp-request
#     /usr/bin/GET
#     /usr/bin/POST
#     /usr/bin/HEAD

#list installed apache packages:
#stu@sente ~ $ pkginfo.sh apache | cut -f2 | uniq
#     apache2
#     apache2-utils
#     apache2.2-common
#     libapache2-reload-perl

#show which packages have the most executables:
#stu@sente ~ $ pkginfo.sh  | grep ^x | cut -f2 | uniq -c | sort -nr |head -5
#    131 git-core
#     96 coreutils
#     87 mailman
#     82 hal
#     70 texlive-base-bin


parm=$1
test -z $1 && parm=.



dpkg --list |
   grep '^ii' |
      grep -E "$parm" |
         awk '{print $2}' |
            while read package; do
               dpkg -L $package |
                  while read file; do

                     #skips directories -- we only want files
#                     test -f "$file" || continue;

                     #if the file is executable, 'x', else 'f'
                     dest=
                     flag=

                     if [ -d "$file" ]; then
                        flag="dir"
                     elif [ -x "$file" ]; then
                        flag="exe"
                     fi

                     if [ -L "$file" ]; 
                        then flag="lnk"
                     fi;

                     if [ -L "$file" ]; 
                        then flag="lnk"
                             dest=$(readlink -e "$file")
                     fi;

                     if [ -L "$file" ]; 
                        then flag="pipe"
                     fi;

                     echo -e "$flag\t$package\t$file\t$dest";
                  done;
            done