expression reguliere perl

Bonjour

étant donné un fichier texte comme suit:

Citation:

---

num_video: 2 - note: 9 - fgt - age: 27 - pratique: oui - duree: oui
num_video: 7 - note: 8 - prfrg - age: 49 - pratique: non - duree: non
num_video: 12 - note: 8 - fgft - age: 27 - pratique: oui - duree: oui
num_video: 15 - note: 9 - fgt - age: 27 - pratique: oui - duree: oui
num_video: 14 - note: 9 - MddB - age: 30 - pratique: oui - duree: oui
num_video: 17 - note: 8 - MddB - age: 30 - pratique: oui - duree: oui
num_video: 18 - note: 9 - MddB - age: 30 - pratique: oui - duree: oui

---

Je voudrais extraire les deux premier nombre (num_video et note), j'ai essayé cette expression et ça marche.

Code:

---

my ( $num, $note) = $ligne =~ /num_video\s*:\s*(\d+)\s*-\s*note\s*:\s*(\d+)/;

---

Je voudrais également extraire la chaine de caractère qui vient juste après la note (sans tiret) exemple : fgt , MddB ...
J'ai essayé cette expression , et ca ne marche pas

Code:

---

my ( $name) = $ligne =~ /num_video\s*:\s*\d+\s*-\s*note\s*:\s*\d+\s*-\s*(\s+)\s*-/;

---

Pouvez vous me dire c'est ou exactement le problème?

Merci

Pourtant, ton expression régulière devrait fonctionner :

Code:

---

1 2 3

$ perl -E 'my $ligne = qq(num_video: 2 - note: 9 - fgt - age: 27 - pratique: oui - duree: oui); my ( $num, $note, $name) = $ligne =~ /num_video\s*:\s*(\d+)\s*-\s*note\s*:\s*(\d+)\s*-\s*(.*?)\s/; say "num=$num, note=$note, name=$name";' num=2, note=9, name=fgt

---

La tienne marche parfaitement

il suffit donc de remplacer (\s+) par (.*?)

Merci Philou67430

Est ce possible de compter le nombre de noms apparus dans le fichier et le nombre d'apparition de chacun?

Dans notre cas le résultat sera

nombre de noms = 3
fgt 3 fois
prfrg 1 fois
MddB 3 fois

Merci d'avance

Citation:

---

Envoyé par devhercule

La tienne marche parfaitement

il suffit donc de remplacer (\s+) par (.*?)

Merci Philou67430

---

Pour l'extraction de $name, oui.
Mais ta première expression régulière qui récupérais $num et $note fonctionnait parfaitement.

Pour ce qui est de .*? : elle permet de récupérer n'importe quel caractère, jusqu'à ce que l'on trouve la suite le l'expression régulière (qui est \s), soit un espace.
Si l'on avait mis .* l'expression aurait récupérer aussi longtemps que possible jusqu'au dernier espace.

Et bien sûr qu'il est possible de compte les apparitions des noms : utilise un hashage avec comme clé le nom (et comme valeur le nombre d'occurrence).

Je débute avec Perl.. peux tu stp me guider un peu plus, un petit code si possible, je pourrai le comprendre et l’améliorer par la suite :)

Le code suivant rempli un tableau avec les nom apparus dans le fichier data.txt

Code:

---

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

#!/usr/bin/perl use strict; use warnings;     my $file = 'data.txt'; open my $fh, "<", $file or die "can't open < $file: $!";   my %tab;   while (my $ligne = <$fh>) { my ( $name ) = $ligne =~ /num_video\s*:\s*\d+\s*-\s*note\s*:\s*\d+\s*-\s*(.*?)\s/; push @{$tab{$name}}, $name; }

---

Le fichier data.txt est

Citation:

---

num_video: 2 - note: 9 - fgt - age: 27 - pratique: oui - duree: oui
num_video: 7 - note: 8 - prfrg - age: 49 - pratique: non - duree: non
num_video: 12 - note: 8 - fgft - age: 27 - pratique: oui - duree: oui
num_video: 15 - note: 9 - fgt - age: 27 - pratique: oui - duree: oui
num_video: 14 - note: 9 - MddB - age: 30 - pratique: oui - duree: oui
num_video: 17 - note: 8 - MddB - age: 30 - pratique: oui - duree: oui
num_video: 18 - note: 9 - MddB - age: 30 - pratique: oui - duree: oui

---

Je veux bien modifier mon code pour afficher combien j'ai de noms dans mon fichier.

Dans ce cas resultat=4

Merci d'avance

Si tu cherches à connaître le nombre d'entrées dans le hachage (que tu ne devrais pas appeler %tab), fais simplement ceci:

Code:

---

1 2	print scalar keys %tab;

---

C'est exactement ce que je voulais faire
Merci Lolo78

PS: pourquoi je ne devrais pas l'appeler %tab