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