| version 1.4, 2005/12/21 18:37:38 |
version 1.7, 2008/04/22 21:08:41 |
|
|
| #!/usr/bin/perl |
#!/usr/bin/perl |
| # $RedRiver: find_depends,v 1.3 2005/12/21 18:22:32 andrew Exp $ |
# $RedRiver: find_depends,v 1.6 2007/05/16 19:55:42 andrew Exp $ |
| use strict; |
use strict; |
| use warnings; |
use warnings; |
| |
|
| use Data::Dumper; |
|
| |
|
| my %opts; |
my %opts; |
| my @Files; |
my @Files; |
| |
|
|
|
| |
|
| my @libs = search_file($file); |
my @libs = search_file($file); |
| foreach (@libs) { |
foreach (@libs) { |
| my ($name, $maj, $min) = $_ =~ /^([^\.]+)\.so\.(\d+)\.(\d+)$/; |
my ($name, $maj, $min) = $_ =~ /lib([^\/]+)\.so\.(\d+)\.(\d+)$/; |
| my $spec = 'l' . $name . '.' . $maj . '.' . $min; |
my $spec = 'l' . $name . '.' . $maj . '.' . $min; |
| |
|
| if (exists $ld->{$spec}) { |
if (exists $ld->{$spec}) { |
|
|
| $locs = find_libs($locs->{$spec}, $ld, $locs); |
$locs = find_libs($locs->{$spec}, $ld, $locs); |
| |
|
| } else { |
} else { |
| warn "Couldn't find location for lib '$_'"; |
warn "Couldn't find location for lib '$_' (file '$file')"; |
| } |
} |
| } |
} |
| |
|
|
|
| { |
{ |
| my $file = shift; |
my $file = shift; |
| my @libs; |
my @libs; |
| |
|
| open my $libs, '<', $file or die "Couldn't open lib '$file': $!"; |
open my $libs, '-|', '/usr/bin/ldd', $file or die "Couldn't open ldd '$file': $!"; |
| local $/ = chr(0); |
|
| while (<$libs>) { |
while (<$libs>) { |
| if (m|^(/[^\w\/]+/)?lib(\S+)\.(\d+)\.(\d+)|) { |
chomp; |
| my ($path, $name, $major, $minor) = ($1, $2, $3, $4); |
my $spec = substr $_, 56; |
| my $spec="$name.$major.$minor"; |
next if $spec !~ m{^/}xms; |
| if (defined $path && $path ne '/usr/local/lib') { |
push @libs, $spec; |
| $spec="$path/$spec"; |
|
| } |
|
| push @libs, $spec; |
|
| } |
|
| } |
} |
| close $libs; |
close $libs; |
| |
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to find_depends CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / openbsd / fill_chroot