Discussion :

[devhercule]

Bonjour

étant donné un fichier texte comme suit:

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 :

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

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 :

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

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

[Philou67430]

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

Code :

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

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

[devhercule]

La tienne marche parfaitement

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

Merci Philou67430

[devhercule]

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

[Philou67430]

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).

[devhercule]

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

[devhercule]

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

Code :

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

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

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