Discussion :

[PadawanInPerl]

Bonjour

je cherche à trier des données de type :

ligne1 titre;acteurs;categorie;durée
ligne2 titre;acteurs;categorie;durée
ligne3 titre;acteurs;categorie;durée

Je voudrais les trier par catégorie...et je me mélange les pinceaux avec les hash
De plus je rame pour récupérer la partie "catégorie" qui est changente, je ne peux la prévoir. (car je voulais m'en servir comme clé)

PS: l'exemple est un exemple ça évité de mettre TOTO...TATA, la question est pour mon taf...Quand même !

Merci

[V.G.T]

un truc dans ce genre?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
        %hash = (
                'nom' => 'DUPONT',
                'prenom' => 'Claude',
                'age' => '22',
                );
        @k = sort keys %hash;   
#valeur de @k = ('age', 'nom', 'prenom');
        @v = sort values %hash;
#valeur de  @v = ('22', 'Claude', 'DUPONT')

--
http://vgt.fr

[PadawanInPerl]

Hello,

merci pour ta réponse !

Sait tu s'il est possible de faire : %hash = ($var1 => $var2); ?

[50Nio]

Bonjour,

Il suffit d'essayer ! :-P
Sinon pour répondre, oui c'est possible !

Redis nous quand tu as ton premier jet de script si tu as toujours des soucis !

[Philou67430]

Tes données sont rangées dans quoi ?
Un fichier texte de type csv, une structure de donnée perl (comme un array de hash), autre chose ?

Si comme je le suppose, tes données sont dans un fichier texte de type csv (dont le séparateur serait le , tu peux trier le fichier ainsi :

Code :

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

1
2
3
4
open my $IN, "<", "test.txt";
my @file = <$IN>;
@file = sort { $a = (split /;/, $a)[2]; $b = (split /;/, $b)[2]; $a cmp $b } @file;
print @file;

Sinon, File::Sort semble faire quelque chose de similaire à la commande Unix sort.