single line output for tracking which libraries go with which programs

This commit is contained in:
Trammell Hudson 2016-12-28 12:39:48 -05:00
parent be725ed104
commit b27aebc559
Failed to extract signature

View File

@ -11,6 +11,7 @@ my $dest = shift
or die "Usage: $0 dest-dir [programs...]\n";
my %libraries;
my %deps;
for my $file (@ARGV)
{
@ -30,6 +31,7 @@ for my $file (@ARGV)
{
# Normal library
$libraries{$1}++;
push @{$deps{$file}}, $1;
}
elsif (/^\s+([^ ]+) \(/)
{
@ -40,6 +42,11 @@ for my $file (@ARGV)
}
#print Dumper(\%libraries);
print "$_: ", join(" ", @{$deps{$_}}), "\n"
for keys %deps;
print "\n";
unless( -d $dest )
{