Discussion :

[laine-m]

Bonjour,

j'aimerais faire un tri en Perl, j'utilise donc la fonction sort qui fait un tri en suivant l'ordre ASCII.
Hors j'ai des noms suivit de numéros, ce qui me donne (avec l'utilisation de la fonction sort) :
nom1 < nom10 < nom2 ...
Je voudrais un tri qui prenne les numéro en compte, ce qui me donnerait :
nom1 < nom2 < nom10 ...

J'imagine qu'il me faut modifier la fonction sort mais je ne comprends pas vraiment comment on fait.

Merci d'avance,

Mathilde

[djibril]

Bonjour,

Voici une solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use strict;
use warnings;
 
my @noms = qw/ nom1 nom2 nom3 nom4 nom5 nom10 nom11 nom20 nom6 /;
print join ',', sort { select_nombre($a) <=> select_nombre($b) } @noms;
sub select_nombre {
	my $chaine = shift;
	$chaine =~ m/nom(\d+)/;
	return $1;
}

Voici des explications : comment trier un tableau.

[laine-m]

Ça marche si j'ai des variables composées de "nom" suivit d'un nombre.

Je me suis mal exprimée tout à l'heure car les variables dans la liste peuvent être tout et n'importe quoi, je veux juste que les nombres dans ces variables ne soient pas interprétés comme des caractères.
Pour un exemple, je peux avoir une liste composée de : "1", "truc1", "truc10","machin","chose5""chose6","chose7ab", ...

Je pense qu'il faut juste modifier la regex dans ce que tu m'as envoyé..

[6ril23]

Pour un exemple, je peux avoir une liste composée de : "1", "truc1", "truc10","machin","chose5""chose6","chose7ab", ...

Je pense qu'il faut juste modifier la regex dans ce que tu m'as envoyé..

Pour reprendre le code de @djibril:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict;
use warnings;
 
my @noms = qw/ nom1 nom2 nom3 nom4 nom5 nom10 nom11 nom20 nom6 /;
print join ',', sort { select_nombre($a) <=> select_nombre($b) } @noms;
sub select_nombre {
	my $chaine = shift;
	$chaine =~ m/.*(\d+).*/;
	$1=0 if ( !defined $1 );
	return $1;
}

ça devrait fonctionner mais pas testé
Attention: si tu as chose88truc9 et chose9truc9, tu auras un tri lexical de "chose88truc" et "chose9truc" et donc pas tout à fait ce que tu souhaites

[laine-m]

Désolé mais ce code ne fonctionne pas.
D'une part, $1 est une constante et ne peut donc pas être modifiée, j'ai donc effectué la modification suivante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
sub select_nombre {
	my $chaine = shift;
	$chaine =~ m/.*(\d+).*/;
	defined $1 ? return $1 : return 0;
}

Et le résultat est faux.
Par exemple, pour la liste ("1", "truc1", "truc10","machin","chose5""chose6","chose7ab"), ça me retourne (1,truc1,truc10,machin,chose5,chose6,chose7abFile).

[6ril23]

ben c'est ce que tu voulais faire de trier en fonction des chiffres non?
tu souhaites faire un tri alphabétique puis numérique?

[djibril]

Il va falloir sortir la boule de cristal car sans clarté, difficile d'avoir une solution optimale !

[laine-m]

Oui c'est ça !!

Je voudrais que ça me retourne "1", "chose5", "chose6", "chose7ab", "machin", "truc1", "truc2", "truc10", ...

Je ne pensais pas que je galérerais autant sur quelque chose d’aussi basique..

[Lolo78]

Essaie ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
 
use strict;
use warnings;
 
my @liste = ("1", "truc10", "truc1","machin","chose15","chose6","chose7ab");
 
print join " ", 
	map { /;(\w+)$/}
	sort 
	map { my $c =  $_; $c =~ s/(\d+)/sprintf "%03d", $1/e; "$c;$_";}
	@liste;

Ce qui imprime:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
1 chose6 chose7ab chose15 machin truc1 truc10

Cette technique s'appelle la transformation de Guttman Rosler, elle est expliquée en détail dans le premier volet un (consacré aux opérateurs de listes) de mon tutoriel sur la programmation fonctionnelle en Perl (voir le lien ci-dessous). Mais n'hésite pas à demander si tu as besoin d'explications.

[Lolo78]

Je n'avais pas trop le temps quand j'ai posté le message précédent.

Petite explication: le premier map, celui du bas, transforme la liste:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

("truc10", "truc2")

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

("truc010;truc10", "truc002;truc2")

Le nombre est maintenant sur trois chiffres en tête de chaîne, donc le tri se fait correctement avec un sort lexicograpique ordinaire. Le second map (celui du haut) écarte ce qui a été ajouté par le premier map et restitue la chaîne d'origine, dans l'ordre voulu.

[laine-m]

Super, ça fonctionne, merci beaucoup !

Mathilde