It's probably been years since I've done anything more than a 5 line Perl script, or just did minor fixes on someone else's code. But we have a log scraper that, uh, well, sucks and I'm the only one brave (or stupid) enough to change it.<br>
<br>One of the things that I want to do is to grab the latest file under a directory with a pattern. And, since I want it to find the file recursively, I know I need to use File::Find. The fl<br><br>sub logFinder {<br>
my $proc="pat"<br> my @files=(); <br><br> sub wanted {<br> /^$proc.*/s<br> && push(@files,$File::File::name);<br> }<br><br> find(\&wanted ,$logdir);<br><br><yadda-yadda><br clear="all">
<br>My "wanted" will give me a list of files the first time I access logFinder, but the next time I run it, the values in @files are not refreshed.<br><br>So that's what I got. I know someone here can do better . . . <br>
<br>-- <br>Mike Hostetler<br><a href="http://mike.hostetlerhome.com/">http://mike.hostetlerhome.com/</a><br><br>