find a file in directory and do file processing

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I have a directory structure in which i have files like
LEAF.LINUX.LOG
LEAF.SOLARIS.LOG
test.asm
test.qo
Linux_Folder/
SOLARIS_Folder/
in the Linux_Folder(shown above ) again i have some files having same name as parent folder files.like
LEAF.LINUX.LOG
test.qrf
test.lis
similarly in the SOLARIS_Folder(shown above ) again i have some files having same name as parent folder files.like
LEAF.SOLARIS.LOG
test.qrf
test.lis
if i am in Linux_Folder i will look for LEAF_LINUX.log file and use same file from parent folder for doing I/O. similar for other folder. For this i wil try find LEAF*.LOG file in any folder, as there can be many log files in folder. this will give me LEAF_LINUX.log (or LEAF_SOLARIS.log). i tried using grep for LEAF*.log but i am unable to do it . how can i find LEAF*.log file and store it in a variable for future use.

Comment on find a file in directory and do file processing

Replies are listed 'Best First'.
Re: find a file in directory and do file processing by sweetblood (Prior) on Apr 06, 2006 at 13:41 UTC
Have a look at perldoc File::Find or perldoc File::Find::Rule That should give you a head start Cheers Update: Also have a look at Beginners guide to File::Find Sweetblood	[reply]
Re^2: find a file in directory and do file processing by merlyn (Sage) on Apr 06, 2006 at 15:31 UTC
And File::Finder, which I like because (a) I wrote it and (b) it has a syntax that more closely mirrors `find(1)`. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l]
Re: find a file in directory and do file processing by marto (Cardinal) on Apr 06, 2006 at 13:50 UTC
Hi Anonymous Monk, A short example to get you started: `#!/usr/bin/perl use strict; use warnings; use File::Find::Rule; my @filesfound = File::Find::Rule->file() ->name( 'LEAF.LOG' ) ->in( "." ); foreach my $filename (@filesfound) { print "$filename\n"; }` [download] Should you need help installing modules, check out the Tutorials section of this site. Hope this helps. Martin Update:* Changed .log to .LOG	[reply] [d/l]