Discussion :

[danje]

Bonjour,

Je dispose d'un fichier dont la structure est celle ci:

^USER^Name^surname^poid^âge

Mon fichier possede plein d eligne de ce genre.

Je lis dont mon fichier et mets toutes ces informations dans un tableau. Une cellule reprsentant une ligne.

Maintenant j'aimerai bien faire unt ri alphabétique en fonction de Name et de surname.
Et si l'information si un Name et surname ets en double, rajouter un nombre apres le name

soi Name1

name2
name3
...

Comment puis je faire cela??

J'avais penser a une hasliste mais je sais pas comment.

Dans l'attente merci d'avance

[shwin]

SAlut je suis débutant en perl, mais tu peux essayer qqechose du genre

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
 
my (%hashes, @split_tab);
while (tu_lit_ton_fichier) {
@split_tab = split(/^/, $ma_ligne_du_fichier);
 
if (exists($hashes{$tab[1]})) { #le hashes existes
    $hashes{$tab[1]}{nb_occurance}++; 
} else {
    $hashes{$tab[1]}{user} = $tab[0];
    $hashes{$tab[1]}{name} = $tab[1];
    $hashes{$tab[1]}{surname} = $tab[2];
    $hashes{$tab[1]}{poid} = $tab[3];
    $hashes{$tab[1]}{name} = $tab[4]; 
    $hashes{$tab[1]}{nb_occurance} = 1
}
 
}

c'est pasl e code le plus performant mais c'est seulement une ébauche de ton cas pour le mettre dans un hashes

De plus, il ne fonctionne surement pas. J'ai surement fait qqe erreur, a toi de l'essayer

@+ et bonne continuation

[danje]

merci

mais j'ai essayé mais j'arrive pas.

je cherche encore

[Jeh]

Ma solution pour ce qui est des doublons 'NAME'.
Celle de Shwin est pas mauvaise aussi.
Pour le reste (tri alpha), essaie Google et la FAQ, ça marche pas mal...

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
my @contenu_fichier = ('^USER^name^surname^poids^age');
my %hash;
foreach(@contenu_fichier) { 
    my @split_tab = split(/\^/);# découpage de la cellule en autant de cellules qu'il y a de '^' 
    my $libelle = $split_tab[1];# correspond au nom
    if (exists $hash{$libelle}) {
        if ($libelle =~ /(\w+)(\d+)/) {# si on a 'name1' par exemple, on récupère le nom sans le chiffre et le chiffre seul afin de l'incrémenter
            $2++;
            $libelle = $1.$2;
        } else {# cas ou seulement 'name'
            $libelle .= "1";
        }
    }
    $hash{$libelle}->{user}    = $split_tab[0];
    $hash{$libelle}->{name}    = $split_tab[1];
    $hash{$libelle}->{surname} = $split_tab[2];
    $hash{$libelle}->{poids}   = $split_tab[3];
    $hash{$libelle}->{age}     = $split_tab[4];
}

[djibril]

j'ai une fonction qui trie, mais supprime les doublons ou + en trop si ça t'interesse !!???