utt/app/dist/common/check_dependenties.pl

16 lines
179 B
Perl
Raw Normal View History

while(<STDIN>) {
chomp;
$app = $_;
$path = `which $app 2>/dev/null`;
$err = $?;
print $app.": ";
if($err != 0) {
print "failed ($err)\n";
}
else {
print $path;
}
}