#!/usr/bin/perl
# Muestra todos los programas que tengan alguna libreria dinamica faltante
# Se usa asi: ldd /usr/bin/* /usr/lib/*.so | ldmiss.pl
#
while (<>) {
	if (/^(\S.*[^:]):$/) {
		$prog = $1;
	} elsif (/\s*(\S+) => not found$/) {
		push(@{$missing{$1}},$prog);
	}
}
foreach $lib (keys %missing) {
	print "$lib:\n";
	foreach (@{$missing{$lib}}) {
		print "$_\n";
	}
	print "\n";
}
