Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: listing all subdirectories of directory into file

by anazawa (Scribe)
on May 26, 2012 at 02:01 UTC ( #972556=note: print w/ replies, xml ) Need Help??


in reply to listing all subdirectories of directory into file

If you're familiar with Path::Class, I recommend for you to use Path::Class::Dir->recurse(). Create a Path::Class::Dir object as follows:

use Path::Class qw/dir/; my $dir = dir( 'basedir' ); # platform-neutral syntax
Once you create the object, use recurse() method:
my @plain_files; $dir->recurse(callback => sub { my $file = shift; # Path::Class object return if $file->is_dir; push @plain_files, $file; });
recurse() is similar to File::Find module. If you use recurse(), you can handle Path::Class::File objects in the callback subroutine.

UPDATE: Corrected my typo ( recruse -> recurse ). Thanks to jdrago999. In addition, I noticed $file may be a Path::Class::Dir object, and so simplified my comment in the code example ( "Path::Class::File object" -> "Path::Class object" ).


Comment on Re: listing all subdirectories of directory into file
Select or Download Code
Re^2: listing all subdirectories of directory into file
by jdrago999 (Pilgrim) on Jun 08, 2012 at 17:20 UTC

    You've got a typo (recruse vs recurse) in your code example.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (14)
As of 2015-07-01 18:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (16 votes), past polls