I create a dummy file with 4 filenames in it...I have
read these 4 names into @filelist...and when I pass
the array to &wanted, it only looks for the last
file..I KNOW this works with arrays, I've done it
before...why does it keep taking the last value
only???
#!usr/bin/perl -w
use File::Find;
$match=<STDIN>;
chomp $match;
open(MYFILE, $match) || die "Can't open file: $!";
@filelist=<MYFILE>;
%files = map {$_=>1} @filelist;
find \&wanted, ".";
sub wanted()
{
print "Match found at : $File::Find::name\n" if
$files{$_};
}
in addition: how can I put each $b value into an
array...so far, there should be ove 30 "Open Table"
lines in my file...I want a array with all 30 so I can
search for the files. I've tried $filename[$count]
with an incrementing variable...but no joy...
while (defined($b=<MYFILE>))
{
if ($b =~ /^Open Table/){
$c = index($b, "As");
$b = substr ($b,12, $c-14);
print "$b\n";
}
Does anyone know any good references, beside perl.com
and cpan.org, etc on the web...when I try to hunt info
down I just get sites that cover the basics and
nothing more...if anyone knows of a site that has
loads of eg's of source code and show
intermediate-level array functions, please can u let
me know...
thanx
Ben
__________________________________________________
Do You Yahoo!?
Find the one for you at Yahoo! Personals
http://personals.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
