protoplasm wrote:
On Apr 6, 12:07 pm, [EMAIL PROTECTED] (John W. Krahn) wrote:
"Your program" was actually generated by the 'find2perl' program and as
such has a lot of stuff in there that you don't need. It could be
simplified to:
#!/opt/local/bin/perl
use warnings;
use strict;
use File::Find;
no warnings 'File::Find';
find sub {
print "$File::Find::name\n" if $_ eq 'libaest.dylib';
}, qw{ /usr/lib /usr/lib64 /usr/local/lib /opt /lib /lib64 };
__END__
Hi John,
Thanks for the tip. It works as you described:
#!/opt/local/bin/perl5.10.0
use strict;
use warnings;
use File::Find;
no warnings 'File::Find';
my @libdir = ( "/usr/lib", "/usr/lib64", "/usr/local/lib", "/opt", "/
lib", "/lib64",);
find sub
{
print "$File::Find::name\n" if $_ eq 'libaest.dylib';
}, @libdir;
Unfortunately I'm not sure if I can use it this way (I'm new to Perl).
What I'm doing is building a string that contains a command that will
end up running a set of Java binaries. This works but it is a lot more
code than your example.
#!/opt/local/bin/perl5.10.0
use File::Find ();
use strict;
use warnings;
no warnings 'File::Find';
my $javaLibPath;
sub libaestPath;
# for the convenience of &libaestPath calls, including -eval
statements:
use vars qw/*name *dir/;
*name = *File::Find::name;
*dir = *File::Find::dir;
my @libdir = ( "/usr/lib", "/usr/lib64", "/usr/local/lib", "/opt", "/
lib", "/lib64",);
# Traverse desired filesystems
File::Find::find(\&libaestPath, @libdir);
print "debug java path:\n";
print "java -Djava.library.path=$javaLibPath -cp
<path_to_jar:path_to_tests>/bin com.foo.foo.java_test\n";
sub libaestPath
{
if(/^libaest\.(a|so|dylib)\z/s && -f)
{
$javaLibPath = $dir;
}
}
Since you are using multiple paths to search and three different file
name extentions it appears that you are searching for multiple files in
different directories, however your example only stores the last entry
searched for.
If you really wanted to capture all of the paths that matched then you
should use a hash to store them. (If you use an array you may get
duplicate entries.)
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
