Well, it may not be the prettiest thing around, but it does the job!

Thanks.

On Sun, 23 Aug 1998, Simon Burge wrote:

> On Sat, 22 Aug 1998 17:23:31 -0700 (PDT)  Paul Goyette wrote:
> 
> > Having followed -current for a long time now, I notice that I've got a
> > few old versions of shared object libraries in /usr/lib.  Is there some
> > relatively easy way to find out which executables I might still have
> > lying around linked to these older versions of libedit, libkvm (likely
> > not very many here), and libstdc++?  I know I could just find all the
> > executables and try to run them, but there must be an easier way to
> > check which libraries they're linked against?
> 
> I got this ages ago (1994!) and haven't used it in quite a while, so I
> don't even know if it works on -current (or anything recent).  A quick
> glance doesn't show any obvious problems.  Have a look and let us know
> how you go.
> 
> Simon.
> ------------------------------ cut here ------------------------------
> #!/usr/bin/perl
> # hey emacs, this is a -*-perl-*- script!
> 
> # A little script to build a reference listing for dynamic libraries.
> # This should help you to get rid of unused ones and find the binaries
> # you need to update before removing old lib revisions.
> 
> # Martin Husemann, martin@euterpe.owl.de, 25-Apr-1994
> 
> # Synopsis:
> #   libref [-a]
> #
> # Description:
> #   Lists usage count for all known shared libraries
> #
> # Options:
> #   -a   gives a complete reference table
> 
> $doRef = $ARGV[0] eq "-a";	# yes, it may use getopt...
> 
> # First ask ldconfig for a list of all shared libs and initialize the
> # reference and statistics table
> open(LIBS, "ldconfig -r |") || die("could not run ldconfig: $!\n");
> while(<LIBS>) {
>     chop;
>     next if (/ld.so.hints:$/);
>     s/^.*=> (\S+)\s.*$/\1/o;
>     $reference{$_} = "";
>     $count{$_} = 0;
> }
> close(LIBS);
> 
> # now lookup every dynamically linked executable on the whole disk
> open(FILES, "find / -type f -print |") || die("could not run find: $!\n");
> while (<FILES>) {
>     chop;
>     if ( -x ) {
> 	$whatis=`file $_`;
> 	if ($whatis =~ /dynamically linked/) {
> 	    $prog="$_";
> 	    open(LIBS, "ldd $prog |") || die("could not run ldd: $!\n");
> 	    @libs = <LIBS>;
> 	    close(LIBS);
> 	    shift(@libs);
> 	    foreach (@libs) {
> 		chop;
> 		s/^.*=> (\S+)\s.*$/\1/o;
> 		$count{$_}++;
> 		$reference{$_} .= " $prog" if ($doRef);
> 	    }
> 	}
>     } 
> }
> close(FILES);
> 
> # sort statistics
> sub ByUsage {
>     $count{$a} <=> $count{$b};
> }
> @sorted = sort ByUsage keys(%count);
> 
> # and finaly report statistics...
> print "Shared library usage counts\n\n" if ($doRef);
> foreach (@sorted) {
>     printf "%8d  %s\n", $count{$_}, $_;
> }
> 
> # and the cross reference
> if ($doRef) {
>     print "\n\nShared library cross reference\n\n";
>     foreach $lib (sort(keys(%reference))) {
> 	print "$lib:$reference{$lib}\n";
>     }
> }
> exit 0;
> 

-----------------------------------------------------------------------------
| Paul Goyette      | Public Key fingerprint:    | E-mail addresses:        |
| Network Engineer  |   0E 40 D2 FC 2A 13 74 A0  |  paul@whooppee.com       |
| and kernel hacker |   E4 69 D5 BE 65 E4 56 C6  |  paul.goyette@ascend.com |
-----------------------------------------------------------------------------