[grep] commande spéciale

Bonjour je sollicite votre aide après avoir casser ma tête pendant deux jour mais aucun résultat, ma question tout simplement je cherche une commande "grep" ou autre qui me sort juste la partie verte un num qui commence par "01" mais entre ";" seul (je veux pas toute la ligne en sortie) et pas répéter. je sais pas si c'est possible.




200803212359;0111800111;;3
200803212359;0111900200;;3
200803212359;0111900364;;0
200803212359;0111900266;0
200803212359;0111900200;;8
200803212359;0111904578;;8
200803212359;0114900586;;2
200803212359;0111900273;;6
200803212359;0111900111;;9
200803212359;0111900266;;1
200803212359;0111900266;;9
200803212359;0111900000;J;0

Citation:

---

Envoyé par scolopendra

Bonjour je sollicite votre aide après avoir casser ma tête pendant deux jour mais aucun résultat, ma question tout simplement je cherche une commande "grep" ou autre qui me sort juste la partie verte un num qui commence par "01" mais entre ";" seul (je veux pas toute la ligne en sortie) et pas répéter. je sais pas si c'est possible.




200803212359;0111800111;;3
200803212359;0111900200;;3
200803212359;0111900364;;0
200803212359;0111900266;0
200803212359;0111900200;;8
200803212359;0111904578;;8
200803212359;0114900586;;2
200803212359;0111900273;;6
200803212359;0111900111;;9
200803212359;0111900266;;1
200803212359;0111900266;;9
200803212359;0111900000;J;0

---

Tu veux absolument utiliser la commande GREP ou une autre solution te va ?
Car moi, j'utiliser la fonction Split. Elle permet de découper une chaine à partir d'un caractère particulier... (chez toi, c'est le ; )
Donc ca donnerai quelque chose comme ca :

(Je suppose que tu sors tout ce bloc d'un fichier... )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

#Ouverture du fichier en lecture open(FICHIER, "< c:\dossier\fichier.txt");   #Lecture ligne par ligne sur le fichier while(defined($ligne= <FICHIER>)) { #découpage de chaque ligne my @liste = split(/:/, $ligne); # découpe ta chaine et stock les 4 parties dans le tableau (ou liste, c'est pareil)   print(" Partie verte : $liste[1] \n"); # On prend la partie n°2 (le tableau commence à 0) }

---

Voila, j'espère que ca va t'aider. ;)
Ciao

ça peut m'aider bien sure, merci, même si un grep facilitera la tache car j'ai plusieurs fichiers a traiter dans un repertoire parce que l'idée après c'est de reboucler sur cette liste, et pour chaque numéro de la colonne 1 créer un fichier num.txt et mettre ses traces dedans. je vais voir comment faire en se basant sur ton idée.

merci

ces données sont dans des fichiers c'est ça?

Oui dans des fichiers dans un répertoire donné...

Citation:

---

Envoyé par scolopendra

car j'ai plusieurs fichiers a traiter dans un repertoire parce que l'idée après c'est de reboucler sur cette liste, et pour chaque numéro de la colonne 1 créer un fichier num.txt et mettre ses traces dedans.

---

Si j'ai bien compris, tu veux pour chaque valeur du deuxième champs créer un fichier num.txt qui contiennent chacune des lignes où cette valeur apparaît. Et tu veux faire ce traitement pour une liste de fichiers.

Voilà comment je ferais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#!/usr/bin/perl use strict; use warnings;   my %greens;   while (<>) { my $code = (split /;/)[1]; push @{$greens{$code}}, $_; }   for my $filecode (keys %greens) { open my $fh, '>', $filecode . '.txt'; print $fh @{$greens{$filecode}}; close $fh; }

---

Tu peux appeler le script sur une liste de fichiers, par ex.: ./myscript *.log

Dans l'exemple que tu as donné 0111900200.txt contiendra :
200803212359;0111900200;;3
200803212359;0111900200;;8

Dis si tu ne comprends pas le code.

désolé pour le retard j'étais pas dispo, donc oui voila ct exactement ca, pour le code je le comprend bien, en fait j'ai fait le programme, mais ta solution et plus optimisé je vais la testé et je te dirais merci bcp et merci encore a tout le monde :yaisse2: