comment on

I agree with your suggestion to use a ST but my preference would be to use a regex to pull out the month, day and year elements and do a three-way sort, greping only those filenames that match.

use strict;
use warnings;

my %months;
@months{qw{
   jan feb mar apr may jun jul aug sep oct nov dec}} =
   0 .. 11;

my $rxWanted;
{
    local $" = q{|};
    $rxWanted = qr
       {(?x)
           \A
           webadmin
           _(@{ [ keys %months ] })
           _(\d\d?)
           _(\d{4})
           \.log
           \z
       };
}

print
   map  { qq{$_->[0]\n} }
   sort {
            $a->[3] <=> $b->[3]
            ||
            $months{$a->[1]} <=> $months{$b->[1]}
            ||
            $a->[2] <=> $b->[2]
        }
   grep { defined $_->[1] }
   map  { chomp; [ $_, m{$rxWanted} ] }
   <DATA>;

__END__
.
..
webadmin_jul_10_2007.log
webadmin_jul_11_2007.log
webadmin_jul_12_2007.log
webadmin_jul_13_2007.log
webadmin_jul_14_2007.log
webadmin_jul_7_2007.log
webadmin_jul_8_2007.log
webadmin_jul_9_2007.log
user.log
[download]

The output is as yours.

Cheers,

JohnGG

In reply to Re^2: Sort an array which contains date formatted elements by johngg
in thread Sort an array which contains date formatted elements by msk_0984

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


go ahead... be a heretic
	PerlMonks