hey guys, this file::find problem is getting me
down...I have tried to simplify it as much as
possible.
these 3 files do exist on my c: root. the program
doesn't find anything if I use a variable in my if
statement, if I use a constant...bingo...I can't work
it out...what am i doing wrong?
#!usr/bin/perl -w
use File::Find;
@testarray=qw(test5.pl test6.pl test7.pl);
find(\&wanted, '.');
$count=0;
sub wanted()
{
if ($_ eq $testarray[$count])
{
print $File::Find::name;
}
$count++;
}
thanx
Ben
__________________________________________________
Do You Yahoo!?
Find a job, post your resume.
http://careers.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
