[Debutant perl] Equivalent sous perl

Version imprimable

14/12/2006, 15h29
griese

[Debutant perl] Equivalent sous perl

Bonjour à tous,
comme l'indique le titre, je suis débutant sous perl et je souhaiterai modifié un script en ksh pour le passer en perl. J'aurai donc voulu connaitre l'équivalent des tableau et de la commande cut sou perl. Merci de votre aide
14/12/2006, 16h46
griese
Bon j'ai trouvé ca :
Code:

1 2 perl -ne 'print if ${i}' fichier1>>fichier2
Apparement si j'ai bien compris, cette commande m'écris dans le fichier2 toutes les lignes comprenant la valeur de $i qu'il trouve dans le fichier 1.
Mais ca ne marche pas des masses. En fait cette commande est dans une boucle for dont $i est la variable. Le tableau contient 10000 lignes, donc je ne devraient avoir que 10000 lignes dans mon fichiers de sortie or je monte a plusieurs millions de lignes. Pourriez vous m'aidez car je n'y connais absoluement rien en perl. Merci beaucoup
14/12/2006, 18h24
Woufeil

Bonjour.

Dit nous plutôt ce que tu veux faire, on t'expliquera comment le faire ;)
15/12/2006, 09h25
griese

Bonjour,
Merci d'avoir déplacer mon post. Bon alors, en fait je souhaiterai faire une jointure entre deux fichiers j'ai un premier fichier de ce type :

fichier1:
ID;info1;
ID;info1;
ID;info1;
ID;info1;
ID;info1;
ID;info1;
ID;info1;
etc...

et un deuxieme :
info2;info3;info4;ID;info5;info6;info7;
info2;info3;info4;ID;info5;info6;info7;
info2;info3;info4;ID;info5;info6;info7;
info2;info3;info4;ID;info5;info6;info7;
info2;info3;info4;ID;info5;info6;info7;
info2;info3;info4;ID;info5;info6;info7;
info2;info3;info4;ID;info5;info6;info7;
info2;info3;info4;ID;info5;info6;info7;
info2;info3;info4;ID;info5;info6;info7;
etc...

En fait je souhaiterai récupérer toutes les infos du deuxieme fichier dont l'ID est dans le fichier1 et en plus rajouter info1 au bout de la ligne du fichier2 correspondant. J'avais réussi un script en ksh mais qui mettais plusieurs heures à réaliser l'opération. Et on m'a dit que le langage était plus puissant donc j'aimerai réaliser cela en perl. Merci pour le coup de main:D
15/12/2006, 11h32
MarneusCalgarXP

quelle est la clé qui permet de faire la jointure entre les 2 fichiers ?

EDIT: oups, j'avais pas vu que ID était présent dans le fichier 2 :) y'a moyen d'écrire ça en ksh de manière aussi efficace qu'en perl. L'avantage du ksh, c'est que ca tiendra mieux la charge si les fichiers sont gros !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
fichier1="/chemin/fichier1"
fichier2="/chemin/fichier2"
 
# tri du 1° fichier sur la clé ID (1° champ), nécessaire pour join
sort fichier1 -t";" -k1 -o ${fichier1}.sorted
# tri du 2° fichier sur la clé ID (4° champ), nécessaire pour join
sort fichier2 -t";" -k4 -o ${fichier2}.sorted
# jointure sur les ID avec tous les champs du fichier2 + info1
join -1 1 -2 4 -t";" -o"2.1 2.2 2.3 2.4 2.5 2.6 2.7 1.2" ${fichier1}.sorted ${fichier2}.sorted > resultat.txt
# suppression des fichiers temporaires triés
rm -f ${fichier1}.sorted ${fichier2}.sorted

15/12/2006, 14h37
griese

Merci pour ton aide ca marche impeccable, par contre j'ai du le modifier un peu, j'ai supprimer le -o dans les deux commandes sort car ils ne les prennaient pas en compte. Encore un grand merci a vous deux :D
15/12/2006, 16h02
MarneusCalgarXP

On était pas 2, j'ai juste écrit 2 messages :mrgreen:
18/12/2006, 09h51
griese

Bah y'avait quand même Woufeil qu'a essayé de participer :mrgreen:
18/12/2006, 10h08
MarneusCalgarXP

Oups, j'avais po vu :aie:
18/12/2006, 18h07
Woufeil

Citation:

Envoyé par griese

Bah y'avait quand même Woufeil qu'a essayé de participer :mrgreen:

[mode blague]
Désolé d'avoir été à l'IUT le 15/12/2006 à 09h25 (quand tu as posté ton message) et ainsi de ne pas t'avoir répondu :mouarf:

Et pi moi aussi j'aurais pu faire le code de MarneusCalgarXP d'abord :langue:
[/mode]

€dit : en plus c'est même pas vrai que j'aurais pu faire le code, c'est du ksh :aie:
'fin, j'aurais pu faure un équivalent Perl quoi :mouarf:
18/12/2006, 22h55
MarneusCalgarXP

Citation:

Envoyé par Woufeil

[mode blague]
Désolé d'avoir été à l'IUT le 15/12/2006 à 09h25 (quand tu as posté ton message) et ainsi de ne pas t'avoir répondu :mouarf:

Et pi moi aussi j'aurais pu faire le code de MarneusCalgarXP d'abord :langue:
[/mode]

€dit : en plus c'est même pas vrai que j'aurais pu faire le code, c'est du ksh :aie:
'fin, j'aurais pu faure un équivalent Perl quoi :mouarf:

Rhoo, te vexe pas Woufeil :mouarf:
19/12/2006, 09h36
griese

Non mais c'est pas grave, tu t'es penché sur mon probleme et rien que pour ca je t'en remercie ;)