Bienvenido a los foros de Perl en Español, Gorka345.
Con un sort() se puede hacer bien...
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict
;
use warnings
;
use diagnostics
;
my $arreglo = <<EOT;
15 120 B
10 15 A
15 110 D
110 7000 C
110 6000 I
111 6001 H
EOT
## Lectura
my @arreglo;
for (split "\n", $arreglo) {
push @arreglo, [ split ];
}
use Data
::Dumper;
print Dumper
\@arreglo;
## Ordenación
@arreglo
= sort {
$a->[0
] <=> $b->[0
]
||
$a->[1
] <=> $b->[1
]
}
@arreglo
;
print Dumper
\@arreglo;
__END__Coloreado en 0.005 segundos, usando
GeSHi 1.0.8.4
Después del proceso de lectura del
$arreglo, que transformamos en una estructura bidimensional en
@arreglo, hacemos un sort(), indicando las condiciones de ordenación, según tus instrucciones: primero se ordenan por la primera columna o (||), si son iguales, por la segunda.
