This is a bit off-topic as your question isn't specific to MacOS and Perl; however, I can't resist a challenge nor the opportunity to help you learn Perl, so here's my offering:
#!/usr/bin/perl
use Cwd; use File::Find;
find( sub { -f $_ && -r _ && push @files, $File::Find::name }, shift || cwd() );
print join "\n", (sort @files), '';
The File::Find module can be a little cryptic, so you might be interested to look at Randal Schwartz's "File::Finder" module (not a standard module, so you'll have to install yourself). Also, File::Find will do a recursive search of directories by default, so you'll have to consult the docs (via "perldoc File::Find").
So to bring this back on topic, how do I
1) test to see if a found file is a Command-L created alias 2) test to see if the bundle bit is on (i.e. a special directory)
-Chuck-
-- Fight Spam! Join CAUCE! == http://www.cauce.org/
