Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

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 cooling their heels in the Monastery: (11)
As of 2017-03-28 18:15 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (339 votes). Check out past polls.