> -----Original Message----- > From: Ben Crane [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, November 13, 2001 10:30 AM > To: [EMAIL PROTECTED] > Subject: Array problems! > > > 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>;
You probably need to chomp() these lines: chomp(@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"; > > } perldoc -f push -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]