Re: Sort on Number Embedded in String

[jdporter]

I'm surprised no one has suggested the GRT yet. This is an ideal case for it.

my @a = <DATA>; chomp @a;

@a =
      map { substr $_, 10 }
      sort
      map { sprintf "%10s%s", /(\d+\w{3}\d{4})/, $_ }
      @a;

print join "\n", @a, '';

__DATA__
fwlog.14Mar2005.gz
fwlog.15Mar2005.gz
fwlog.16Mar2005.gz
fwlog.17Mar2005.gz
fwlog.18Mar2005.gz
fwlog.19Mar2005.gz
fwlog.1Mar2005.gz
fwlog.20Mar2005.gz
fwlog.21Mar2005.gz
fwlog.2Mar2005.gz
fwlog.3Mar2005.gz
fwlog.4Mar2005.gz
fwlog.5Mar2005.gz
fwlog.6Mar2005.gz
fwlog.7Mar2005.gz
fwlog.8Mar2005.gz
fwlog.9Mar2005.gz