perl -pe 'chomp; print `ls /home/$_/bin`;' file | grep filename

Any suggestions for a pure Perl one-liner, anyone? Maybe something like:

perl -pe 'print if glob <"/home/$_/bin/filename">;' file

I'd be more inclined to use -l in a command line so that chomps are done automatically when used with -n or -p, but a pure perl one liner could be ...

perl -nle 'print if -e "/home/$_/bin/filename"' file

... if you needed to use a seperate file, but on UNIXish systems (possibly others?) you can use getpwent() to get usernames and home directories (esp. since they may not always be under /home/!) of active accounts instead of using a seperate file.

perl -le 'while (($u,$d)=(getpwent)[0,7]) { print $u if -e "$d/bin/$ARGV[0]" }' filename

    --k.

Updated a bit from my original submission. (:

perl -lne 'print for grep /filename/, </home/$_/bin/*>`
[download]

without the "-l", you need to chomp or $_ will have a trailing newline, which would cause you problems. Thanks to kanji for mentioning that -l auto-chomps, which I hadn't been aware of.

• Write the non-Perl variation: find /home/*|grep filename
• throw your script into a .pl file and run it (obvious answer)
• throw around some backslashes (maybe even for the backticks) until it works :o) I already see one potential problem- you are not properly encapsulating your mini-script with the appropriate shell metachars.

AgentM Systems nor Nasca Enterprises nor Bone::Easy nor Macperl is responsible for the comments made by AgentM. Remember, you can build any logical system with NOR.