How to search recursively and return specific patterns

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

Hi , I am new to perl and trying to search recursively from a directory C:\\songs and return all files with extension .mp3 and .rm. How can i do that ? My script below returns a single pattern within that particular directory only . Pls help.

$path = "C:\\songs\\";
chdir $path;
@list = glob("*.mp3");
for $filename ( @list ) {
print "$filename\n";
}
[download]

20070904 Janitored by Corion: Added code tags, as per Writeup Formatting Tips

Comment on How to search recursively and return specific patterns Select or Download Code

Replies are listed 'Best First'.
Re: How to search recursively and return specific patterns by johnlawrence (Monk) on Aug 24, 2007 at 13:16 UTC
Something along these lines should do the job I think: `#!/usr/bin/perl use strict; use File::Find; my @dirs = @ARGV or die "Please supply a valid directory to search"; find(\&wanted, @dirs); sub wanted{ if(-f && m/\.(mp3\|rm)$/){ print "$File::Find::name\n"; } }` [download] Update: Thanks to andreas1234567 for suggesting I add a -f test to avoid printing non-files. I guess, it's unlikely to find anything other than a file that ends ".mp3" or ".rm", but best to be on the safe side!	[reply] [d/l]
Re^2: How to search recursively and return specific patterns by dilip_val (Acolyte) on Aug 24, 2007 at 14:34 UTC
Thanks guys for all your replies , i was not able to use File::Find:Rule or File::Find::Match as it is not present in the perl distribution we use. The last suggested script works for me. Would like to understand what m and $ stand for inside the if condition . if(-f && m/\.(mp3\|rm)$/) Thanks again, Jude Dilip.	[reply]
Re^3: How to search recursively and return specific patterns by chrism01 (Friar) on Aug 24, 2007 at 14:47 UTC
That's a regex. 'm' means match the pattern following, and '$' means 'anchor' match to end of string ie there must be no chars after 'mp3' or 'rm'. See http://perldoc.perl.org/perlrequick.html and http://perldoc.perl.org/perlretut.html Cheers Chris	[reply]
Re^4: How to search recursively and return specific patterns by dilip_val (Acolyte) on Aug 24, 2007 at 15:33 UTC
Re: How to search recursively and return specific patterns by FunkyMonk (Chancellor) on Aug 24, 2007 at 12:59 UTC
Have a look at the standard module File::Find	[reply] [d/l] [select]
Re: How to search recursively and return specific patterns by moritz (Cardinal) on Aug 24, 2007 at 12:59 UTC
Try File::Find or File::Find::Rule. Perl 6 in German -- Difficult Sudoku	[reply]