Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: Something like File::Find with sorting

by Kenosis (Priest)
on Feb 16, 2013 at 21:43 UTC ( #1019077=note: print w/replies, xml ) Need Help??

in reply to Something like File::Find with sorting

File::Find::Rule provides a nice front end for File::Find:

use strict; use warnings; use File::Find::Rule; my $dir = "."; my @files = File::Find::Rule->file()->in($dir); print "$_\n" for sort { lc $a cmp lc $b } @files;

Partial output:

.project 10B.xml 10b.xml 1354903584-3827.xlsx 5a.xml 67.xml 6adh.pdb atom.pdb ...

You may also be interested in using Sort::Naturally for a lexical sort:

use strict; use warnings; use File::Find::Rule; use Sort::Naturally; my $dir = "."; my @files = File::Find::Rule->file()->in( $dir ); print "$_\n" for nsort @files;

Partial output

5a.xml 6adh.pdb 10b.xml 10B.xml 67.xml 1354903584-3827.xlsx atom.pdb Book1.xls

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1019077]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2017-11-19 15:21 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (281 votes). Check out past polls.