Ho fatto un resoconto di Google su questo, ma non riuscì a trovare la risposta che voglio.

Dico, vi è un array come questo:
@ A \u003d qw (CD1 A1 EF A2 hij a12 b2 b4 B22);

Voglio ordinare l'array nel primo ordine:
@ ordinati \u003d qw (A1 A12 A2 B2 B22 B4 cd1 hij ef);

E secondo ordine:
@ ordinati \u003d qw (A1 A2 A12 B2 B4 B22 cd1 hij ef);

C'è un modo per fare questo in Perl senza utilizzare i moduli?

Thanks a lot!

Non si considera la funzione sort di un modulo?

@sorted=sort(@A);

Grazie! Si lavora per il primo ordine.

Che dire del secondo ordine:
qw (A1 A2 A12 B2 B4 B22 cd1 hij ef);
Grazie!

Sì, è possibile ordinare con una regola personalizzata. Ma qual è esattamente la norma per l'ordinamento? Se non è possibile elaborare una specifica formale del genere, nessuno sarà in grado di farlo "correttamente".

Il seguente dà lo stesso ordine, come lei ha detto, ma non vi è alcuna garanzia che si sta per dare il "giusto" ordinamento (come ci si potrebbe aspettare) per i valori di input:

use Data::Dumper;

@A = qw(cd1 a1 ef a2 hij a12 b2 b4 b22);
print Dumper([sort {
	my ($_a, $_b);
	for ([$a, \$_a], [$b, \$_b]) {
		$_->[0] =~ /^(.+?)(\d*)$/;
		${$_->[1]} = [$1, $2];
	}
	($$_a[0] cmp $$_b[0]) || ($$_a[1] <=> $$_b[1]);
} @A]);

Secondo ordine che sembra essere una sorta prima alpha poi cifre:

my @A = qw(cd1 a1 ef a2 hij a12 b2 b4 b22);

my @sorted = map{$_->[2]}
          sort{$a->[0] cmp $b->[0] || $a->[1] <=> $b->[1]}
          map{/([a-z]*)(\d*)/;[$1,$2,$_]} @A;

print "$_\n" for @sorted;