Foro de elhacker.net

Buenas, tengo un problema con la función sort, y es que solo ordena las primeras cifras de un número, busqué en la documentación de perl, pero viene todo en inglés y no entiendo nada. Tengo este código:

#!/usr/bin/perl
 
use warnings;
use strict;
 
my @array = (5, 4, 1, 3, 7, 6);
@array = sort @array;
print $array[0] . "\n";
print $array[1] . "\n";
print $array[2] . "\n";
print $array[3] . "\n";
print $array[4] . "\n";
print $array[5] . "\n";

La función sort ordena bien los números y la salida es la esperada, pero cuando cambio un elemento del array por un número de dos cifras, únicamente ordena la primera cifra, un ejemplo:

#!/usr/bin/perl
 
use warnings;
use strict;
 
my @array = (5, 43, 45, 3, 7, 6);
@array = sort @array;
print $array[0] . "\n";
print $array[1] . "\n";
print $array[2] . "\n";
print $array[3] . "\n";
print $array[4] . "\n";
print $array[5] . "\n";

La salida de este codigo es
Las unicas cifras que está ordenadas son las primeras.

Saludos

Mirá acá:

http://stackoverflow.com/questions/6454744/sort-function-in-perl

Muchas gracias ;D