Discussion :

[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

[HaaaWaaaX]

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 :

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

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

[scolopendra]

ç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

[djibril]

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

[scolopendra]

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

[iblis]

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 :

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

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.

[scolopendra]

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