Tri spécial sur un tableau

**laura_** · 16/01/2013, 14h42

Bonjour,
J'ai un problème avec un de mes scripts. Il faut que je trie un tableau dans l'ordre alphabétique, mais en prenant en compte d'abord les caractères spéciaux (il n'y aurait que _ ), ensuite les lettres, puis enfin les chiffres.

Par exemple :

Code :

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

1
2
3
4
5
6
7
8
LTR1
LTR1_
LTR1A
LTR1B
LTR10
LTR11
LTR2
...

Je ne vois pas trop comment procéder et j'ai l'impression que la fonction sort ne permet pas ce type de tri.

Merci d'avance.

Laura.

**messinese** · 16/01/2013, 14h54

Bonjour,

ton exemple est il ce que tu souhaites en sortie ou ce que tu as en entrée ?

Peux tu donner entrée/sortie afin de mieux coprendre ce que tu as et ce que tu doit obtenir stp ?

merci

**laura_** · 16/01/2013, 15h04

Mon exemple est ce que je veux en sortie.

Ce que j'ai en entrée :

Code :

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

1
2
3
4
5
6
7
8
 
LTR1
LTR10
LTR11
LTR1A
LTR1B
LTR1_
LTR2

Ce que j'aimerais en sortie :

Code :

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

1
2
3
4
5
6
7
LTR1
LTR1_
LTR1A
LTR1B
LTR10
LTR11
LTR2

Merci pour votre aide !

**messinese** · 16/01/2013, 15h38

Re,

voici un exemple qui semble marcher, vous me direz si ceci vous convient sachant qu'il s'agit ici d'un exmple à modifier au besoin bien entendu:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
#! /usr/bin/perl
 
use 5.10.0;
use strict;
use warnings;
use diagnostics;
 
use constant TRUE  => (1);
use constant FALSE => (0);
 
my $Compteur    = TRUE;
my $SpecialChar = (FALSE);
my @Tableau1    = (
                   "LTR1",
                   "LTR10",
                   "LTR11",
                   "LTR1A",
                   "LTR1B",
                   "LTR1_",
                   "LTR2",
                  );
my (@FinalTab, @SortedTab) = ();
 
BEGIN:
 
say ("[*] Debut du traitement");
 
foreach my $lines(sort(@Tableau1)){
 
    # On récupere la ligne contenant notre caractere spécial
    if ($lines =~ /[_]/) {
        $SpecialChar = $lines;
        next;
    }
    push (@FinalTab, $lines);
}
 
foreach my $lines(@FinalTab){
 
    # On place la ligne contenant le caractere spécial avant LTR10
    if ($lines =~ /[0]/) {
        push(@SortedTab, $SpecialChar);
        my $Char =$SpecialChar;
        $SpecialChar =~ s/$Char//g;
    }
    push(@SortedTab,$lines);
}
 
 
foreach my $Sorted(@SortedTab){
 
    # On affiche le tableau trié
    say ("Boucle N. $Compteur = $Sorted");
    $Compteur++;
}
 
say ("[*] Fin du traitement");
exit(TRUE);

Ce qui retourne cela :

Code :

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

1
2
3
4
5
6
7
8
9
[*] Debut du traitement
Boucle N. 1 = LTR1
Boucle N. 2 = LTR1_
Boucle N. 2 = LTR10
Boucle N. 3 = LTR11
Boucle N. 4 = LTR1A
Boucle N. 5 = LTR1B
Boucle N. 6 = LTR2
[*] Fin du traitement

Edit: aprés relecture je vois que les A,B etc.. se trouvent etre sous les 10,11 .. il faudra donc modifier ce code afin que tu obtienne réellement ce que tu veux, encore désolé mais la je n'ai pas trop le temps de m'y repencher ... :/
Cdlt.

**Lolo78** · 16/01/2013, 15h39

Tu peux tout à fait utiliser la fonction sort, mais je pense que tu vas devoir écrire toi-même la fonction de comparaison appelée par la fonction sort.

La syntaxe est du type:

Code :

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

1
2
3
4
5
my @sorted_array = sort ma_fonction_comparaison @unsorted;
 
sub ma_fonction_comparaison {
     # compare les variables spéciales $a et $b 
}

Ta fonction devra comparer $a et $b selon les règles que tu as énoncées et renvoyer -1 si $a doit être avant $b, + 1 si $b doit être avant $a, et 0 si les $a = $b.

**laura_** · 16/01/2013, 16h02

Merci pour vos réponses.
J'ai du coup utilisé la méthode de Lolo78, plus facile à mon goût. De plus, l'autre méthode proposée ne triait pas exactement comme je le souhaitais

.

Du coup le code ça donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
#!usr/bin/perl
 
use strict ;
use warnings ;
use Scalar::Util qw(looks_like_number);
 
sub tri_special {
	# compare les variables spéciales $a et $b
	if ($a eq $b) {return 0 ;}
	elsif ($a eq "_"){return -1 ;}
	elsif ($b eq "_"){return 1 ;}
	elsif (looks_like_number($a) and looks_like_number($b))
	{
		if ($a lt $b){return -1 ;}
		elsif ($a gt $b){return 1 ; }
	}
	elsif (!looks_like_number($a) and !looks_like_number($b))
	{
		if ($a<$b){return -1 ;}
		elsif ($a>$b){return 1 ;}
	}
	elsif (looks_like_number($a) and !looks_like_number($b))
	{
		return 1 ;
	}
	elsif (!looks_like_number($a) and looks_like_number($b))
	{
		return -1 ;
	}
}
 
my @dico = ("LTR1","LTR10","LTR11","LTR1A","LTR1B","LTR1_","LTR2") ;
my @dico_tri ;
for (my $i=0;$i<$#dico-1;$i++)
{
	print "## $dico[$i] ##\n" ;
	my @tmp ;
	for (my $j=$i+1;$j<$#dico;$j++)
	{
		if ($dico[$j] =~ m/^$dico[$i](.*)$/)
		{
			push(@tmp,$1) ;
		}
	}
	print join ("\t",@tmp)."\n" ;
	my @tmp_tri = sort tri_special @tmp ;
	print join ("\t",@tmp_tri)."\n" ;
}

Je pense que l'écriture peut être améliorée...
Sur un petit exemple ça marche. J'attends de voir si sur un exemple plus complexe ca marche également et je mettrais à ce moment-là la mention "Résolu".

Merci encore pour votre aide !

Laura.

**laura_** · 16/01/2013, 16h10

En fait le script ne marche pas comme je veux...
Dès que je regarde sur l'ensemble du tableau, ça ne marche plus, dû au fait que les mots ne sont triés que par ordre alphabétique (car ils sont considérés comme le cas ligne 17 du script précédent).

Code :

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

1
2
3
4
5
6
 
# avec la meme fonction tri_special que précédemment
my @dico = ("LTR1","LTR10","LTR11","LTR1A","LTR1B","LTR1_","LTR2") ;
print join ("\t",@dico)."\n" ;
my @dico_tri = sort tri_special @dico ;
print join ("\t",@dico_tri)."\n" ;

J'essaye de trouver une solution, mais si vous en avez une je suis preneuse !

Merci encore de votre aide.

**Lolo78** · 16/01/2013, 16h28

J'étais aussi surpris de lire ton message disant que le code présentaé fonctionnait, ça ne me paraissait pas possible.

En fait je pense que tu ne peux pas échapper au fait de splitter chacun des deux mots à comparer par lettre, et de comparer les lettres au fur et à mesure.

Par ailleurs, en dehors du fait qu'il ne fait pas exactement ce dont tu as besoin, le code ci-dessous:

Code :

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

1
2
3
	if ($a eq $b) {return 0 ;}
	elsif ($a eq "_"){return -1 ;}
	elsif ($b eq "_"){return 1 ;}

peut se réécrire plus simplement, sans les else, les parenthèses et les accolades comme suit:

Code :

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

1
2
3
	return 0 if $a eq $b;
	return -1 if $a eq "_";
	return 1 if $b eq "_";

**laura_** · 16/01/2013, 16h50

J'essayerais demain ta méthode avec le split avant de comparer caractère par caractère.

Merci encore !

Tri spécial sur un tableau

Langage Perl

Discussions similaires

Partager

Partager