You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use Cwd qw(abs_path);
|
|
|
|
my %deps;
|
|
|
|
while (my $line = <>) {
|
|
chomp $line;
|
|
$line =~ s/[()]/ /g;
|
|
for my $word (split(/\s+/, $line)) {
|
|
$deps{abs_path($word)} = 1 if ($word =~ /\.a$/);
|
|
}
|
|
}
|
|
|
|
my @deps = keys %deps;
|
|
|
|
print join("\t\\\n\t", @deps), "\n";
|
|
|
