Comment faire pour trier les nombres en Perl?

print "@_\n";
4109 4121 6823 12967 12971 14003 20186

Comment puis-je trier en Perl?

À l'aide de @sorted = sort(@_); me donne un ordre alphabétique

13041 13045 14003 20186 4109 4121 6823

Comment puis-je obtenir un numéro de commande? N'Perl ont intégré des fonctions de fusion de tri, d'insertion, tri, etc.?

  • BTW, savez-vous à propos de la commande perldoc?
  • y: non, je n'ai pas. Je sais maintenant. merci!
InformationsquelleAutor Lazer | 2010-08-26
  1. 48

    Vous pouvez passer une comparaison personnalisée de la fonction Perl à la routine de tri. Utilisez simplement:

    @sorted = sort { $a <=> $b } @unsorted;

    La sort fonction accepte une comparaison personnalisée de la fonction en tant que premier argument, sous la forme d'un bloc de code. Le {...} partie est juste ce bloc de code (voir http://perldoc.perl.org/functions/sort.html ).

    sort vais appeler cette fonction de comparaison personnalisée chaque fois qu'il doit comparer deux éléments du tableau à trier. sort passe toujours dans les deux valeurs à comparer comme $a, $b, et la fonction de comparaison doit retourner le résultat de la comparaison. Dans ce cas, on utilise l'opérateur de comparaison numérique (voir http://perldoc.perl.org/perlop.html#Equality-Operators ), qui a probablement été créé à cet effet :-).

    Solution sans vergogne volé "Perl Livre De Recettes", Chapitre 04 Sous-chapitre 15 (acheter ce livre, il en vaut la peine!)

    • Je voudrais prendre le lien en bas, c'est la distribution de contenu protégé par copyright sans le consentement du titulaire du. Vous pouvez recommandé de l'œuvre originale (Perl livre de cuisine, Christiansen et Torkington) à la place.
    • Il semble y avoir un consensus sur [Perl] balise de liaison à des copies piratées de O'Reilly livres (ou des livres) est Mauvais. Montage pour supprimer
    • Désolé, ne réalisent pas de mettre le lien de matériel piraté. Merci pour le fixer.
    • Google recherche de livres souvent a nice non-pirates de matériel adapté à la liaison.
    InformationsquelleAutor sleske
  2. 9

    Offre une fonction de comparaison trier():

    # sort numerically ascending
my @articles = sort {$a <=> $b} @files;

# sort numerically descending
my @articles = sort {$b <=> $a} @files;

    De tri par défaut de la fonction est cmp, comparaison de chaînes de caractères, ce qui permettrait de trier (1, 2, 10) en (1, 10, 2) . <=> , utilisé ci-dessus, est la numérique opérateur de comparaison.

    InformationsquelleAutor Eugene Yarmash
  3. 8

    Perl sort par défaut trie par ordre alphabétique dans l'ordre ASCII. Pour trier numériquement, vous pouvez utiliser:

    @sorted = sort { $a <=> $b } @_;
    • Comment cela fonctionne?
    • Voir mes explications (j'ai soumis à la même réponse, juste un peu plus tard;-)).
    InformationsquelleAutor codaddict
  4. 6

    C'est une FAQ Perl. À partir de la ligne de commande:

    perldoc -q sort

    perlfaq4: Comment puis-je trier un tableau par (n'importe quoi)?

    InformationsquelleAutor toolic
  5. 5
    @l = (4109, 4121, 6823, 12967, 12971, 14003, 20186, 1, 3, 4);
@l = sort { $a <=> $b } @l;
print "@l\n"; # 1 3 4 4109 4121 6823 12967 12971 14003 20186

    Vous devez fournir votre propre tri des sous-routine { $a <=> $b }

    InformationsquelleAutor adamse
  6. 2

    Vous pouvez prédéfinir la fonction qui doit être utilisé pour comparer les valeurs de votre tableau.
    perldoc -f sort vous donne un exemple:

    # sort using explicit subroutine name
sub byage {
   $age{$a} <=> $age{$b};  # presuming numeric
}
@sortedclass = sort byage @class;

    <=> opérateur est utilisé pour trier numériquement.

    @sorted = sort {$a <=> $b} @unsorted;
    InformationsquelleAutor Konstantin Likhter
  7. 0

    Je veux juste gagner beaucoup de temps pour personne, nouveau en Perl (comme moi) qui a cette question, à savoir comment trier un tableau numérique, parce que je n'ai pas perdu de temps mais a fait de moi un fou!

    Donc, vous trouverez ici (et dans beaucoup d'autres endroits) que la façon de trier un tableau numérique est:

    @sorted_array = sort { $a <=> $b } @unsorted_array;

    Maintenant que vous l'essayez, et vous obtenez un message d'erreur: "impossible d'utiliser "mon $a" une sorte de comparaison" ! (C'est parce que vous avez déjà déclaré '$a', à l'aide de " stricte.pm'). Mais alors, vous ne pouvez pas utiliser des variables déclarées, soit parce qu'elles seront rejetées comme non défini! Donc, vous pourriez vous sentir pris au piège dans une impasse, comme je l'ai fait.

    J'ai eu à résoudre ce problème "à la dure", simplement parce que personne n'a pris en charge, soit ici, ou dans perldoc.perl.org ou dans tout autre endroit que j'ai visité -- de mentionner que '$a ET$b' SONT RÉSERVÉS (TOKENS) POUR CETTE UTILISATION! (Bien sûr, lorsque l'on utilise "stricte", ce qui devrait. Et ce qui est assez fou, parce que 'a' et 'b' sont parmi les plus courants de court variables utilisées dans la programmation, et logiquement, donc!)

    J'espère que ce sera utile pour beaucoup de programmeurs, de nouveau en Perl, qui le visitent cette page!

    InformationsquelleAutor Apostolos