Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Searching file extensions

by crouchingpenguin (Priest)
on Jun 19, 2003 at 12:10 UTC ( #267156=note: print w/replies, xml ) Need Help??

in reply to Searching file extensions

How about this (as an alternative to the File::Find answers)?

#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use constant RECURSIVE => 1; sub find_files_in_dir { my ($dir,@extensions) = @_; my $match = join('|',@extensions); opendir(DIR,$dir) or die $!; my @files = map { $_->{name} . '.' . $_->{extension}; } grep { $_->{extension} =~ m/\A(?:$match)\Z/o if $_; } map { my $file_with_dir = $dir . '/' . $_; if( -f $file_with_dir ){ { name => $1, extension => $2} if m/\A(.*?)\.(.*?)\Z/o; }elsif( RECURSIVE && -d $file_with_dir ){ map { {name => $1, extension => $2} if m/\A(.*?)\.(.*?)\Z/o; } find_files_in_dir($file_with_dir , @extensions ); } } grep { !m/\A(?:\.+)\Z/o } readdir(DIR); closedir(DIR); return @files; } my @files = find_files_in_dir( '.', qw( html pl pm ) ); print Dumper(\@files),"\n";

Update: Added recursion

"Never be afraid to try something new. Remember, amateurs built the ark. Professionals built the Titanic."

Replies are listed 'Best First'.
Re^2: Searching file extensions
by Anonymous Monk on Aug 02, 2015 at 11:51 UTC
    this returns only the file name, how do i get the filepath along with the file name.

      I guess you must have found this ancient thread by searching, so continue your effort and search some more; you will find your answer has already been given here a few hundred times :-)

      If you can't find it after trying for a while, post a new question according to the guidelines. (Hint: this question is not likely to get the answer you are seeking.)

      The way forward always starts with a minimal test.
        This code seems to bit complex with maps & sub calls in one line. this code is faster, my piece of code is slower and consuming more memory. You help is appreciated. TIA.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://267156]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (3)
As of 2021-09-20 15:27 GMT
Find Nodes?
    Voting Booth?

    No recent polls found