version 1.8, 2008/05/05 19:58:18 |
version 1.9, 2008/05/05 20:02:57 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver: find_depends,v 1.7 2008/04/22 20:08:41 andrew Exp $ |
# $RedRiver: find_depends,v 1.8 2008/05/05 18:58:18 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
|
|
open my $libs, '-|', '/usr/bin/ldd', $file or die "Couldn't open ldd '$file': $!"; |
open my $libs, '-|', '/usr/bin/ldd', $file or die "Couldn't open ldd '$file': $!"; |
while (<$libs>) { |
while (<$libs>) { |
next if length($_) < 56; |
|
chomp; |
chomp; |
my $spec = substr $_, 56; |
my ($spec) = (split(/\s+/, $_))[7]; |
|
next if ! $spec; |
next if $spec !~ m{^/}xms; |
next if $spec !~ m{^/}xms; |
push @libs, $spec; |
push @libs, $spec; |
} |
} |