Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Regex pattern to find directories only with digits

by Bindo (Acolyte)
on Apr 11, 2013 at 09:55 UTC ( #1028109=perlquestion: print w/ replies, xml ) Need Help??
Bindo has asked for the wisdom of the Perl Monks concerning the following question:

Greetings good people! I just want to find all the directories containig only numbers and assign them to an array. For an instance I would want isolate the directories in a certain partition with this format "20130411". Not "2013.kjh" or "NN.201304", or "2013mmkk04". Following is what I tried but they returns not only what i want but the ones with letters

my @LOGDIR = <*>; foreach my $DIR(@LOGDIR) { if($DIR =~ m/([\d])/){ print "$DIR\n"; } }

Please can someone help. Many thanks in advance.

Bindo

Comment on Regex pattern to find directories only with digits
Download Code
Re: Regex pattern to find directories only with digits
by hdb (Parson) on Apr 11, 2013 at 10:01 UTC

    This will also find files with names consisting of digits only...

    use strict; my @LOGDIR = <*>; foreach my $DIR(@LOGDIR) { if($DIR =~ m/^(\d+)$/){ print "$DIR\n"; } }

      Thank you very much sir this is exactly what I was looking for. :)

Re: Regex pattern to find directories only with digits
by Krambambuli (Deacon) on Apr 11, 2013 at 10:23 UTC
    with this format "20130411". Not "2013.kjh" or "NN.201304", or "2013mmkk04".

    You might need to refine your definition of 'this format'. Must it be a valid date ? Can it be in the future ? Can it be anywhere in the past ? Could it be less than 8 digits ? ... Etc. If you'd want _precisely_ 8 digits and wouldn't care about validness of the date,

    m/^[\d]{8}$/ might be the regex you want,


    Krambambuli

    ---

      Thank you for your thoughts Mr K. Well I just want to find any directory whos names are only made up of digits. It could either be a date, or even just a of a one digit. like 2. Thank you for clarifying doubts so sooner. :)

Re: Regex pattern to find directories only with digits
by tobias_hofer (Friar) on Apr 11, 2013 at 10:26 UTC

    Hi

    I also recommend that you specify your regex as close to what you expect as possible. Just taking the "Class" for decimal is opening a wide range of possible matches. You may can start by defining how many digits you expect - mean to say giving your regex a Range. ;-)

    Cheers!
    Tobias

Re: Regex pattern to find directories only with digits
by j0se (Pilgrim) on Apr 11, 2013 at 11:32 UTC

    In case you need to search recursively, you may use the File::Find core module:

    use strict; use warnings; use File::Find; # Search current dir unless dir(s) given as command line args @ARGV = qw(.) unless @ARGV; find( \&get_dirs_with_numbers, @ARGV ); sub get_dirs_with_numbers { return unless /^\d+$/; # your regex print $File::Find::name . "\n"; }

    find function from File::Find scans directories in @ARGV recursively and for each file calls the referenced function (coderef) get_dirs_with_numbers. Before calling your function find by default changes to the directory being scanned and sets the following variables:

    • $File::Find::dir -- visited directory path relative to the starting directory
    • $_ -- basename of the file being visited
    • $File::Find::name -- full path of the file being visited

    Well done is better than well said. -- Benjamin Franklin

Re: Regex pattern to find directories only with digits
by graff (Chancellor) on Apr 12, 2013 at 03:03 UTC
    If I were trying to get just the entries in my current working directory whose names consist entirely of digits, I'd do it like this:
    my @digit_dirs = grep /^\d+$/, <*>; print join( "\n", @digit_dirs, "" );
    If the entries of interest were in fact all "yyyymmdd" digit strings, I'd replace the "+" in the grep regex with {8}.

      Thank you very much good people. I totally understood the concept. You all are the best. By the way if I get a satisfactory answer to a thread that I have started is there a way of closing/locking it? Cos I receive lot of reminders from root saying that I'd have to reply ...etc. Im just a beginner gentlemen so please let me know if there are any rules that I should follow. thanks

        If you are on unix or similar shell, use:
        ls|grep -P "^.*\d{8}.*"
        -P in grep is for using perl regex within shell grep.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (7)
As of 2014-08-22 04:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (147 votes), past polls