perl et la manipulation des fichier text

Bonjour,

je suis debutante en perl et je sollicite votre aide! mon probleme ests le suivant:

je desire analyser un tres grand fichier text et voici un extrait:

Code:

---

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

[3] est la quantite du legume : tomate il ya des tomates des navets et pas de carottes [4] est la quantite du legume : navet [6] est la quantite du legume : chou ggggggggggggggjlkjdshryzy [9] est la quantite du fruit : orange [8] est la quantite du fruit : banane il ya pas de fraise [5] est la quantite du fruit : pomme pas de pain de compagne [13] est la quantite du pain : croissant gfjgdsfgjgdjfhgdjhgfjhdsgfjhqgdhjfg [3] est la quantite du pain : pain au chocolat

---

et je desire savoir les produits presents dans la dans le fichier alors il faudrait que j'aurais le resulta suivant: legume, fruit et pain

j'ai le script suivant mais il affiche toutes les les ligne qui ont le format de l'expression regulier alors que c pas ce qui est demandé

Code:

---

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

#!/usr/bin/perl   open FILE, "hh.txt";     while ($line=<FILE>){ if ($line=~/\[(.*)\] (.*) quantite du (.*)/) {     print "$line";   }   }   close FILE;

---

pourriez-vous m'aimer a debloquer ce bug?

je vous remercie a l'avance

Tu devrais lui faire afficher ta troisième capture ($3) au lieu de la ligne $line. Tu peux aussi simplifier (et raffiner) ta regex.

Voilà un exemple (qui en fait un peu plus, en matière de capture et d'affichage), qui devrait te permettre de progresser.

Code:

---

1 2 3 4 5

my %products; while (<FILE>) { $products{$2} += $1 if (/\^[(\d+)\].*: ([\w| ]*)$/); } print map {"$_ $products{$_}\n"} sort keys %products;

---

La capture est à la fois plus simple (je prends que ce dont j'ai besoin) et plus précise (j'en dis plus sur où il faut prendre).

Rappel :

^ et $ sont les ancres de début et de fin de chaîne. La précision permet d'éviter les lignes qui ne comment pas par [\d+].

\d pour chiffre, \w pour alphanumérique et | alternative

L'utilisation d'un tableau associatif (hash) te permets de compter les éléments (tu n'es pas obligé!), tout en stockant le nom des produits. Clé du hash = nom et valeur du hash = nombre (avec incrémentation si déjà présent).

le map {} prend une liste en entrée (liste des clés du hash) et recrache une liste de chaînes (en l'occurence la clé et sa valeur) à print.

merci pour votre reponse .

mon probleme est un peu complexe car apres je vais m'enservire du resultat de ce fichier par la suite dans autre chose,

j'ai modifié le scrip comme suit :

Code:

---

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

#!/usr/bin/perl   open FILE, "hh.txt";     while ($line=<FILE>){   if ($line=~/\[(.*)\] (.*) quantite du (.*) :(.*)/) {     print "$3\n";   }   }   close FILE;

---

et j'aurai le resultat suivant:
legume
legume
legume
fruit
fruit
fruit
pain
pain

mais moi je veux just avoir le resultat suivant:
legume
fruit
pain

merci pour votre reponse

je pense que il faudrait que je compare l'element $3 avec les element du tableau s'il il n'existe pas dans le tableau alors je l'ajoute mais sinon si il existe je l'ajoute pas pas au tableau et vers la fin j'affiche ce tableau !! je pense que c'est ça la solution.

mais le probleme je manipule pas bien les tableau .

Pourrier vous m'aider SVP

merci d'avance;

Citation:

---

Envoyé par linda8080

je pense que il faudrait que je compare l'element $3 avec les element du tableau s'il il n'existe pas dans le tableau alors je l'ajoute mais sinon si il existe je l'ajoute pas pas au tableau et vers la fin j'affiche ce tableau !! je pense que c'est ça la solution.

---

En fait il y a plus simple : il suffit d'utiliser un hash. Dans un hash, les clés sont uniques, donc même si tu rajoutes plusieurs fois la même clé, il n'y aura toujours qu'une seule clé avec cette dénomination.

Code:

---

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

#!/usr/bin/perl use strict; use warnings;   my $filename = 'hh.txt'; open my($file), '<', $filename or die "N'a pas pu ouvrir $filename : $!\n";   my %products; while (my $line = <$file>){ if ($line =~ m/^\s*\[(\d+)\] [^d]* du (\w+) :/) { $products{$2} += $1; } }   print join "\n", sort keys %products;   __END__

---

--
Jedaï

Citation:

---

En fait il y a plus simple : il suffit d'utiliser un hash. Dans un hash, les clés sont uniques, donc même si tu rajoutes plusieurs fois la même clé, il n'y aura toujours qu'une seule clé avec cette dénomination.

---

Si tu avais lu, ou simplement exécuté le code que je t'ai proposé, tu aurais réalisé par toi-même ce que te dis Jedaï.

Car le code fait exactement cela. Bien sûr tu peux ne pas afficher le nombre d'occurrence.

Code:

---

print map {"$_\n"} sort keys %products;

---

De plus si tu n'as vraiment que faire du nombre de produits, tu peux aussi ne pas les capturer et ne pas les stocker dans le hash.

Code:

---

$products{$1} = 1 if (/^\[\d+\].*: ([\w| ]*)$/);

---

(La regex de Jedaï est — bien entendu ;) — encore plus précise)

Je t'avais proposé l'exemple non pas pour que tu aies du prêt à emporter mais pour t'aider à comprendre comment faire.

Ah oui, si tu veux préserver l'ordre dand lequels les produits sont rencontrés, empilent les dans une liste à la première occurrence (là encore le hash t'est utile).

je comprends pas cette ligne de code , pourriez vous me l'expliquer SVP

Code:

---

$products{$2} += $1;

---

Rappel (au cas où) : un hash (ou tableau associatif) est une liste de clé et de valeur. A chaque clé est associée une valeur.

Par exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

my %products; $products{pomme} = 10; $products{orange} = 2;   # ou encore, déclaration directe   my %sites = { 'http://www.perlmonks.org/' => 'perl', 'http://www.mongueurs.net/' => 'perl', 'http://www.haskell.org/' => 'haskell' }

---

Dans :

Code:

---

$products{$2} += $1 if (/\^[(\d+)\].*: ([\w| ]*)$/);

---

$1 et $2 sont la 1ere et la 2eme capture dans la regex (qui valent donc 3 et tomate à la lecture de la première ligne). $products{$2} += $1 incrémente de $1 ( = le nbre d'unité) la valeur de $2 (= le nom du produit) dans la tableau associatif %products. Dans le cas de la première ligne $products{$2} += $1 vaut $products{tomate} += 3 et donc incrémente 3 à $products{tomate}.

je prefere utiliser les tableaux car il faut que je garde l'ordre des éléments dans lequel ils apparaissent et ensuite je vais les passer comme arguments à une autre fonction .

Code:

---

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

[21221]ggggggggggggggggggggggggg tcp uid = 8471 [21221]ggggggggggggggggggggggggg tcp uid = 8471 [21221]ggggggggggggggggggggggggg tcp uid = 471 [21221]ggggggggggggggggggggggggg tcp uid = 2071 [21221]ggggggggggggggggggggggggg tcp uid = 8971 [21221]ggggggggggggggggggggggggg tcp uid = 871 [21221]ggggggggggggggggggggggggg tcp uid = 71 [21221]ggggggggggggggggggggggggg tcp uid = 80 tyyyyyyyyyyyyyyyyyyy tcp 2343 [45125]rrrrrrrrrrrrrrrrrrrr tcp uid = 8073 yuyyuidshfhhfhfjfjjf tcp uid 45654 [214522] ssssssssssssssssssssssssssss ack uid = 8074 [23456] gdgsfdgshjufuioufoaiuoifuaoiueio tcp uid = 435 [12.310272]le (node 0) va envoyer le paquet pkt: type = tcp,a la couche physique qui a identificateur uid = 807 [12.314208]le (node 1) viens de recevoir le paquet pkt: type = tcp de la couche haute uid = 807 [12.314432]le (node 1) va envoyer le paquet pkt: type = M_ACK,a la couche physique qui a identificateur uid = 807 [12.314784]le (node 0) viens de recevoir le paquet pkt: type = M_ACK de la couche haute uid = 807 [12.314784]le (node 0) viens de recevoir le paquet pkt: type = tcp de la couche haute uid = 809

---

et voici mon code qui ne marche pas encore !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#!/usr/bin/perl   open FILE, "test.txt"; $i=0; @tab=(); while ($line=<FILE>){ if ($line=~/\[(.*)\](.*)tcp (.*)uid = (.*)/) { if ($i=0){ $tab[0]=$4; $i=$i+1; } elsif($tab[$#tab]=$4){ $tab[$#tab+1]=$4; $i=$i+1;   }   } } if (@tab){ print ("@tab \n"); } close FILE;

---

Merci pour votre reponse

je debute avec perl et je ne manipule pas bien les tableau et les hach mais j'aimerai avoir les identificateur pour les passer apres comme argument a une autre fonction

Bonsoir.

Si tu veux simplement la liste des valeurs numériques en fin de ligne et que peu t'importent les autres informations alors fais plutôt comme suit:

Code:

---

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

#!/usr/bin/perl use strict; use warnings;   open my $fh, '<', 'test.txt';   my @list; while(<$fh>) { push @list, $1 if /\s+(\d+)$/; }   print map {$_, "\n"} @list;

---

PS Tu n'utilises ni use strict; ni use warnings; c'est une très mauvaise idée, tu as peu de chance d'avoir des scripts qui fonctionnent.