in reply to sorting numerically and alphabetically

Use Sort::Naturally. Just use: 
use Sort::Naturally;
@list = nsort(qw(
   foo12a foo12z foo13a foo 14 9x foo12 fooa foolio Foolio Foo12a
  ));
  print join(' ', @list), "\n";

[download]

Replies are listed 'Best First'.
Re^2: sorting numerically and alphabetically
by salva (Canon) on Jun 29, 2006 at 15:26 UTC
    or Sort::Key::Natural that is much faster... 
    use Sort::Key::Natural qw(natsort);

@sorted = natsort qw(foo12a foo12z foo13a foo 14 9x foo12 fooa foolio 
+Foolio Foo12a);

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom