utt/app/dist/common/find_perl_deps.pl

30 lines
683 B
Perl
Raw Normal View History

while(<STDIN>) {
chomp;
# najpierw nazwa pliku zrodlowego out
if($_ =~ /^[^:]*\:\s*(.*)$/) {
my $line = $1;
# print "TEXT: $line\n";
# teraz tylko samo polecenie
if($line =~ /\`\s*(.+)\s*\`/) {
my $cmd = $1;
# print "CMD: $cmd\n";
# teraz splitujemy potoki
my @progs = split(/\s*\|\s*/, $cmd);
foreach (@progs) {
# print "$_\n";
# ucinamy agrumenty programu
# oraz linie, zawierajace nie-programy (--replace, $tmpfile_x, /g, \\, itp.)
if($_ =~ /^([^\$\\\/\s\']+)(\s.*)?$/) {
my $app = $1;
# print "APP: $app\n";
# my $res = `which $app`;
# print "WYNIK: $res\n";
print "$app\n";
}
} # foreach
}
}
}