Trier Perl tableau numérique

Question

J'ai un tableau qui ressemble à ceci:

array[0]: 6 8 
array[1]: 12 9 6 
array[2]: 33 32 5 
array[3]: 8 6 

Je veux trier ce tableau pour qu'il ressemble à ceci:

array[0]: 6 8 
array[1]: 6 9 12 
array[2]: 5 32 33 
array[3]: 6 8 

Je sais que je peux trier le tableau avec @newarray = sort {$a cmp $b} @array;, mais j'ai aussi besoin de trier les éléments dans chaque ligne. Comment puis je faire ça?

Answer 1

En supposant que vous avez un tableau de chaînes là-bas, et que tout ce que vous voulez est de trier chaque chaîne comme si elle était un sous-tableau de nombres (mais laisser une chaîne?):

#!/usr/bin/env perl 
use strict; 
use warnings; 

my @array = ('6 8', '12 9 6', '33 32 5', '8 6'); 

foreach my $string (@array) { 
    $string = split_sort($string); 
} 

sub split_sort { 
    my $string = shift @_; 
    my @internal_nums = split ' ', $string; 
    @internal_nums = sort {$a <=> $b} @internal_nums; 
    return join ' ', @internal_nums; 
} 

print "@array\n"; 

Answer 2

Vous avez une liste d'éléments que vous voulez transformer. C'est un candidat parfait pour map. Notez également le comportement par défaut de split: il fonctionne sur $_, en séparant les espaces, après avoir supprimé les espaces de début.

my @array = ('6 8', '12 9 6', '33 32 5', '8 6'); 
@array = map { join ' ', sort {$a <=> $b} split } @array; 

Answer 3

Vous pouvez également résoudre en utilisant la carte

#!/usr/bin/env perl 


my @numbers = (
    '6 8', 
    '12 9 6', 
    '33 32 5', 
    '8 6', 
); 

my @sorted; 
push (@sorted, map { join " ", sort { $a <=> $b } (split//, $_) } @numbers); 


print "$_\n" for @sorted; 

sorties:

6 8 
6 9 12 
5 32 33 
6 8