1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!/usr/bin/perl -w use strict; use Cwd qw(abs_path); my %deps; while (my $line = <>) { chomp $line; if ($line =~ /\(([^)]+)/) { $deps{abs_path($1)} = 1; } } my @deps = keys %deps; print join("\t\\\n\t", @deps), "\n";