Perl pb pattern matching Fermé

Question

Bonjour à tous, je suis plutôt novice en perl et je rencontre actuellement un problème avec un programmme de pattern matching. Mon point de départ est une liste de termes complexes que je dois repérer dans un corpus. Jusque là, pas de souci, mon prog repère les termes. Mais mon but n'est pas de les extraire mais de les baliser dans le corpus lui même et là je sèche. Si quelqu'un a une idée ce serait super. Merci d'avance open (TERMES, "termes.txt") or die "Termes introuvables"; foreach $ligne (){push @termes, $ligne} foreach(@termes) { pluriels($_); chomp($_); #s/ //; push @termes_plur, $_; } @termes_plur = sort{length($b) <=> length($a)} @termes_plur; #foreach(@termes_plur){print $_." "} #Décommenter pour voir les regexps des termes qui seront projetées sur le texte. open (FICHIER, "corpus.txt") or die "Fichier d'entrée introuvable"; push @fichier, ; foreach $terme (@termes_plur) { foreach(@fichier) { while(/($terme)/g){print $terme." ".$1." "} } }

lami20j · Answer

Salut,

Ben, je n'ai pas compris ce que tu veux.
Il faudra donner un exemple concret.
Les données en entrée et ce que tu veux obtenir en sortie.

En ce qui concerne ton code il y a des choses redondantes.
@termes contient les lignes de ton fichiers, alors pourquoi stocker dans un tableau, si on peut remplir @termes_plur directement depuis  le fichier ?

open (TERMES, "termes.txt") or die "Termes introuvables"; 

while (<TERMES>){ 
{ 
  pluriels($_); # ici je suppose que c'est une fonction écrite par toi
  push @termes_plur, $_; 
} 
chomp(@termes,plur);

marge31 · Answer

Bonjour lami20j, alors pour être plus claire j'ai au départ une liste de terme que je dois matcher dans un corpus. Ces termes sont du type "manoeuvre de libération". J'applique sur ces termes une fonction "pluriel" qui me permet de matcher également les termes au pluriel . Ce que je veux en sortie, c'est que ces termes soient balisés directement dans le corpus. Ex : blabla manoeuvre de libération< erme> blabla Merci de ton aide

lami20j · Answer

Re, Je n'ai pas testé open ECRIRE,">>resultat.txt" or die "E/S : $! "; while(){ foreach my $e(@termes_plur){ s/(.*)$e(.*)/${1}${e}$2/g if /(.*)$e(.*)/; } print ECRIRE; } ouopen ECRIRE,"resultat.txt" or die "E/S : $! "; while(){ foreach my $e(@termes_plur){ if (/$e/){ s/(?=$e)//g; s/(?<=$e)//g; } } print ECRIRE; }

lami20j · Answer

Re, Les script sont en gras. Et voici le test avec la version 1 de script (il avait une seule erreur - un backslash dans la chaine de remplacement ;-) lami20j@debian:~/trash$ cat phrases.txt ligne 1 toto et titi ligne 2 tata ligne 3 rien titi toto tata lami20j@debian:~/trash$ cat mots_0.pl #!/usr/bin/perl use strict;use warnings; open FICHIER,"phrases.txt" or die "E/S : $! "; open ECRIRE,">>resultat_phrases_0.txt" or die "E/S : $! "; my @termes_plur=qw/ titi toto tata /; while(){ foreach my $e(@termes_plur){ s/(.*)$e(.*)/${1}${e}$2/g if /(.*)$e(.*)/; } print ECRIRE; } lami20j@debian:~/trash$ perl mots_0.pl lami20j@debian:~/trash$ cat resultat_phrases_0.txt ligne 1 toto et titi ligne 2 tata ligne 3 rien titi toto tata lami20j@debian:~/trash$ Et la version 2 de script lami20j@debian:~/trash$ cat phrases.txt ligne 1 toto et titi ligne 2 tata ligne 3 rien titi toto tata lami20j@debian:~/trash$ cat mots.pl #!/usr/bin/perl use strict;use warnings; open FICHIER,"phrases.txt" or die "E/S : $! "; open ECRIRE,">>resultat_phrases.txt" or die "E/S : $! "; my @termes_plur=qw/ titi toto tata /; while(){ foreach my $e(@termes_plur){ if (/$e/){ s/(?=$e)//g; s/(?<=$e)//g; } } print ECRIRE; } lami20j@debian:~/trash$ perl mots.pl lami20j@debian:~/trash$ cat resultat_phrases.txt ligne 1 toto et titi ligne 2 tata ligne 3 rien titi toto tata lami20j@debian:~/trash$

lami20j · Answer

Salut,

Y'a t il selon toi une solution ou c'est peine perdue?
Ben, je suis plutôt optimiste ;-))

Je vais regarder ce soir.

lami20j · Answer

Salut, Teste ça (le script en gras) lami20j@debian:~/trash$ cat phrases.txt manoeuvre manoeuvre de liberation titi toto tata titi et toto lami20j@debian:~/trash$ cat mots_1.pl #!/usr/bin/perl use strict;use warnings; open FICHIER,"phrases.txt" or die "E/S : $! "; open ECRIRE,">>resultat_phrases.txt" or die "E/S : $! "; my @t; my @termes_plur=("titi","toto", "manoeuvre de liberation", "titi et toto","manoeuvre","tata"); my @tri = map {$_->[1]} sort {$a->[0] < $b->[0]} map { @t= split /\s+/,$_ and [@t + 0, $_] } @termes_plur; while(){ foreach my $e(@tri){ if (/(?)$e(?!<)/){ s/(?<=$e)//g; s/(?=$e)//g; } } print ECRIRE; } lami20j@debian:~/trash$ perl mots_1.pl lami20j@debian:~/trash$ cat resultat_phrases.txt manoeuvre manoeuvre de liberation titi toto tata titi et toto

Perl pb pattern matching

6 réponses

Discussions similaires