Esta es la versión correcta:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- my @arr = (
- [ 0, 3, 6, 5 ],
- [ 0, 1, 8, 2 ],
- [ 0, 9, 7, 4 ],
- );
- pinta_matriz();
- @arr = sort { $a->[1] <=> $b->[1] } @arr;
- pinta_matriz();
- sub pinta_matriz {
- for my $fila (@arr) {
- print '[', join(' | ', @$fila), ']', "\n";
- }
- print "\n";
- }
- __END__
- [0 | 3 | 6 | 5]
- [0 | 1 | 8 | 2]
- [0 | 9 | 7 | 4]
- [0 | 1 | 8 | 2]
- [0 | 3 | 6 | 5]
- [0 | 9 | 7 | 4]
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Ya he corregido el mensaje anterior con la versión (que además, es distinta de esta última también) que quería haber puesto.
