substitution en Perl Résolu

Question

bonjour à tous,
je suis en plein projet pour l'école et je programme en perl
j'ai un soucis au niveau d'une substitution
je vous explique
je récupère un texte dans une variable $corps
j'ai une liste de mots dans @listemotsvides
et je dois supprimer les mots de la liste dans le texte
j'ai donc fait ca :

sub vide($corps){
open(texte2,"<motsvides2.txt") or die"pb";


while($t=<texte2>){
 #tableau de mots vides
 push(@listemotsvides,$t);
}

close (texte2);
#La fonction vide permet de supprimer les mots vides
foreach $element(@listemotsvides){
  
    $corps=~s/{element}//g;
   #$corps=~s/[a-z]*ait//g;
}
}


et dans mon programme j'appelle ma fonction:
vide($corps);

et je comprends pas pourquoi ca ne supprime pas les mots
merci d'avance pour votre réponse

nanou

nanou2183 · Answer

je viens de me rendre compte d'une erreur dans la substitution c'est $element mais ca change rien à mon résultat

lami20j · Answer

je vois que les mots tu les récuperes depuis un fichier

C'est quoi la structure de ce fichier?
un mot par ligne?
plusieurs mots pas ligne?

Ce n'est pas comme ça qu'on écrit une procécure
sub vide($corps){ 

maissub vide {
   $coprs=shift;

lami20j · Answer

lami20j@debian:~/trash$ cat motsvides.txt
liste
je
vous
plein
texte
lami20j@debian:~/trash$ cat substitution.pl
#!/usr/bin/perl
#
open F_MOTS, "motsvides.txt" or die "E/S : $!
";

my @listemotsvides;

push @listemotsvides,$_ while (<F_MOTS>);
map { chomp } @listemotsvides;

my $corps =
q{bonjour à tous,
   je suis en plein projet pour l'école et je programme en perl
   j'ai un soucis au niveau d'une substitution
   je vous explique
   je récupère un texte dans une variable $corps
   j'ai une liste de mots dans @listemotsvides
   et je dois supprimer les mots de la liste dans le texte
   j'ai donc fait ca};

print "AVANT
-----
$corps";
$corps =~ s/$_//g for @listemotsvides;
print "

-----APRES-----
Les mots supprimés sont : @{[ sort @listemotsvides ]}
";
print "-" x 15 . "
$corps
";
__END__
Le résultatlami20j@debian:~/trash$ perl substitution.pl
AVANT
-----
bonjour à tous,
   je suis en plein projet pour l'école et je programme en perl
   j'ai un soucis au niveau d'une substitution
   je vous explique
   je récupère un texte dans une variable $corps
   j'ai une liste de mots dans @listemotsvides
   et je dois supprimer les mots de la liste dans le texte
   j'ai donc fait ca

-----APRES-----
Les mots supprimés sont : je liste plein texte vous
---------------
bonjour à tous,
    suis en  prot pour l'école et  programme en perl
   j'ai un soucis au niveau d'une substitution
     explique
    récupère un  dans une variable $corps
   j'ai une  de mots dans @motsvides
   et  dois supprimer les mots de la  dans le
   j'ai donc fait ca

nanou2183 · Answer

ca marche pas !! snif snif
ca me donne des caractères chelou
pffffff j'en ai marre 
quand je fais afficher la liste des mots c 'est bon j'ai les bons mots
mais quand je veux afficher $corps ca me donne des trucs bizars 
et pas du tout mon texte

nanou2183 · Answer

j'ai fait ca
sub vide{
my $corps=shift;
open(texte2,"<motsvides2.txt") or die"pb";

my @listemotsvides;

push @listemotsvides,$_ while(<texte2>); 
map { chomp } @listemotsvides;
#print "@listemotsvides";
$corps =~ s/$_//g for @listemotsvides;
print "$corps
";
close (texte2);
}

alors peut etre que j'ai mal retransrit ton code mais bon ca marche pas stp encore un peu d'aide merki

lami20j · Answer

#!/usr/bin/perl
#
my $corps = q{bonjour à tous,
   je suis en plein projet pour l'école et je programme en perl
   j'ai un soucis au niveau d'une substitution
   je vous explique
   je récupère un texte dans une variable $corps
   j'ai une liste de mots dans @listemotsvides
   et je dois supprimer les mots de la liste dans le texte
   j'ai donc fait ca};



sub vide{
  my $res=shift;
  open F_MOTS, "motsvides.txt" or die "E/S : $!
";

  my @listemotsvides;

  push @listemotsvides,$_ while(<F_MOTS>);
  map { chomp } @listemotsvides;
  $res =~ s/\b$_\b//g for @listemotsvides;
  print "$res
";
  close (F_MOTS);
}

vide($corps);
__END__

lami20j · Answer

Ecoute chez moi ça marche.

Dit moi, tu es sur quel OS?
Comment tu lances le script?

Je l'ai testé sous Linux et Windows donc je ne vois pas où est le problème.

lami20j · Answer

OperatingSystem

perl executv13.pl .... et tous les arguments car je crée plein de fichiers 

le script ne traite pas des arguments, tu ne l'as pas dit
c'est juste un exemple, donc il faut l'exécuter tel quel sans arguments

A savoir qu'il lit les mots dans le fichier motsvides.txt
Donc crée un fichier motsvides.txt est dédans écrit

 liste
je
vous
plein
texte

ensuite exécute le script avecperl script.plet je t'assure que ça marche

en revanche si tu veux utiliser des arguments il faut préciser en détails ce que tu veux faire (bien sûr si tu veux que je t'aide :-))

nanou2183 · Answer

non mais en fait le problème que j'ai c'est seulement sur un bout de mon programme car il est beaucou p plus long c'est pour ca que je te dis que j'ai des arguments
et je veux bien te croire que ca fonctionne mais moi ca merde chez moi ...
doncje sais plus quoi faire et ca me rend barge !!!!

lami20j · Answer

Je ne comprends pas.

je suppose que tu as ajouté le bout de code dans ton script et il ne fonctionne pas.

comme je te l'ai déjà dit, exécute seulement le bout de conde que je t'ai donnée en oubliant ce que tu as

et fait comme moi, affiche ici ce que tu exécute (ET UTILISE LES BALISES CODE)

tu peux afficher ton script.
N'aie pas peur, je ne vais pas voler ton travail :-) j'ai d'autre chose à faire
Si tu veux que je t'aide, alors aide moi ;-)

nanou2183 · Answer

bon alors j'ai fait ca : #!/usr/local/bin/perl # my $corps = q{bonjour à tous, je suis en plein projet pour l'école et je programme en perl j'ai un soucis au niveau d'une substitution je vous explique je récupère un texte dans une variable $corps j'ai une liste de mots dans @listemotsvides et je dois supprimer les mots de la liste dans le texte j'ai donc fait ca}; sub vide{ my $res=shift; open F_MOTS, "motsvides2.txt" or die "E/S : $!\n"; my @listemotsvides; push @listemotsvides,$_ while(); map { chomp } @listemotsvides; $res =~ s/\b$_\b//g for @listemotsvides; print "$res\n"; close (F_MOTS); } vide($corps); __END__ et j'obtiens ca un truc qui a l'air de fonctionner mais je peux pas le copier ici alors comment ca se fait que ca marche pas dans mon programme? je veux bien te coller mon programme mais il est long : #pour exécuter ce fichier : # perl executv13.pl Docs posting.txt index.txt ../CODESQL/insertion.sql ../CODESQL/tfidf.sql ../CODESQL/insert.sql ../CODESQL/rappel.sql #!/usr/local/bin/perl #on lit d'abord le fichier des mots vides #ensuite on fait les traitements sur les textes #on ouvre le répertoire $D=$ARGV[0]; opendir(D,$ARGV[0]); @docs=readdir(D); #on enlève de la liste des documents les . et .. shift(@docs); shift(@docs); #tablo est le tableau des fréquences de chaque terme pour un document donné. #tablo2 correspond au nombre de documents où apparait un terme d'indexation de la collection. %tablo1=(); %tablo2=(); %tablo3=(); %tablo4=(); $ins=0; $u=0; #on ouvre en écriture le fichier posting open(posting,">$ARGV[1]"); open(insertion,">$ARGV[3]"); foreach $fichier(@docs){ #on ouvre en lecture le fichier du répertoire Docs $num=0; open(texte,$ARGV[0]."/$fichier") or die"pb"; %tablo=(); while(@t=){ chomp(@t) ; $t=join('',@t) ; #on met tout en minuscules $t=~tr/A-Z/a-z/; accent($t); caracteres($t); if ($t=~//){ $auteur=$1; $auteur=~ s/,/ /g; #print "auteur = $auteur\n\n" ; $auteur=~ s/'/ /g; } if ($t=~/

([^<]*)

/){ $URL=$1; #print "URL = $URL\n\n" ; } if ($t=~/([^<]*)/){ $titre=$1; $titre=~ s/'/ /g; #print "titre = $titre\n\n" ; } if ($t=~/]*>(.*?)/){ my $corps=$1; #print "corps = $corps\n\n" ; } if ($auteur ne ""){ $longueur=@tablo1; #print "$auteur\n"; while ($tablo1[$num] ne $auteur && $num<$longueur){ $num=$num+1; #print "le num est $num\n"; } if ($num!=$longueur){ $num=$num+1; print insertion ("INSERT INTO Documents VALUES ('$fichier','$titre','$URL',1);\n INSERT INTO DocAuteurs VALUES ('$fichier',$num);\n"); }else{ $tablo1[$num]=$auteur; $num=$num+1; print insertion ("INSERT INTO Documents VALUES ('$fichier','$titre','$URL',1);\n INSERT INTO Auteurs VALUES ($num,'$auteur');\n INSERT INTO DocAuteurs VALUES ('$fichier',$num);\n"); }}else{ print insertion ("INSERT INTO Documents VALUES ('$fichier','$titre','$URL',1);\n"); } #print ("@tablo1\n"); #print insertion ("insert into Documents(Titre, URL, Id_collec) values ($titre, $URL, 1);\n #insert into Auteurs(Nom) values ($auteur);\n"); balises($corps); separateur($corps); vide($corps); #on met les termes d'indexation dans une liste @liste=split(", ",$corps); #print(@liste); shift(@liste); #on calcule les fréquence de chaque terme foreach $element(@liste){ $tablo{substr($element,0,7)}+=1; } } foreach $cle(keys(%tablo)){ #on remplit le fichier posting if($tablo{$cle}<($u*0.67) && length($cle)>3){ print posting ("$cle \t $fichier \t $tablo{$cle}\n"); } $tablo3[$i]=$fichier; if($tablo3[$i-1] ne $tablo3[$i]) { $u=$u+1;} $i=$i+1; #on crée le tableau qui nous permettra d'afficher l'index if($tablo{$cle}>0 && $cle ne ""){ $tablo2{$cle}+=1; } } } close(posting); close (insertion); #on crée notre fichier index open(ind,">$ARGV[2]"); foreach $cle(keys(%tablo2)){ if($tablo2{$cle}<($u*0.67) && length($cle)>3){ print ind ("$cle \t $tablo2{$cle}\n");} } close (texte); close (ind); open(posting,"posting.txt"); my @contenu=; #On récupère tout le contenu du fichier posting dans la liste contenu close(posting); open(tfidf,">$ARGV[4]"); foreach (@contenu){ my @datas= split(/\t/, $_); #On sépare les colonnes du fichier posting que l'on entre dans datas $datas[0]=~s/ //g; #On supprime les espaces de la première colonne du fichier posting $datas[2]=~s/\n//g; $datas[1]=~s/ //g; #On supprime les retours à la ligne de la troisième colonne du fichier posting $div=$u/$tablo2{$datas[0]}; $log=log($div); $tfidf=$datas[2]*$log; #On calcule grâce aux données que nous avons récupérées le tf*idf $k=$k+1; print tfidf ("INSERT INTO Termes (Nterme,Terme) VALUES ($k,'$datas[0]'); \n INSERT INTO IndexDoc(Nterme,Ndoc,freq,poids) VALUES ($k,'$datas[1]',$datas[2],$tfidf);\n"); #On insère dans un fichier tfidf les commandes nécessaires aux insertions dans la table Termes #et dans la table Temp qui nous sert d'intermédiaire pour les insertions dans la table IndexDoc } close(tfidf); open(insert,">$ARGV[5]"); print insert ("INSERT INTO CollecDoc (Id_collec,Theme,Nb_doc) VALUES (1,'Maladies génétiques',$u);\n "); #On insère dans la table CollecDoc les informations sur notre collection de documents close(insert); open(rappel,">$ARGV[6]"); $m=0; while($m<1) {print rappel ("INSERT INTO RepriseFixe (point) VALUES ($m);\n"); $m=$m+0.1; #On insère dans la table RepriseFixe les points de reprise } close(rappel); sub separateur{ $corps=shift; #La fonction separateur permet de remplacer tous les séparateurs du corps des documents par des virgules $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; $corps=~s// /g; }

lami20j · Answer

Tu as copié ton script entier?
tu peux joindre ton script sur cjoint.com et coller ici l'adresse de lien obtenu.

je vais voir ça à la maison en tranquillité

par exemple
#La fonction caracteres permet de remplacer tous les caractères sépciaux par des blancs ou par les lettres 
#correspondant a ces caractères

et ici tu mets une liste entière quand une seule regex peu faire l'affaire


par exemple tous les caractères spéciaux (voir la table ASCII étendue) de C majuscules avec cédille Ç ( ascii 128, hexa 80) jusqu'à (ascii 255, hexa FF) on peut écrire$t =~ s/[x80-xFF]//g;au lieu de tous le listing que tu as utilisé.
Donc j'utilise une classe de caractères

nanou2183 · Answer

https://www.cjoint.com/?cunyetu08k

voila le lien 
bon bah ok je te laisse regarder ca mais sache qu'on est pas super douée en programmation dans ma classe et moi en particulier donc peut etre qu'il y a plein de fautes
là je dois partir bosser je reviens vers 18h 18h30
a plus et merci

lami20j · Answer

while(@t=){ chomp(@t) ; $t=join('',@t) ; un chomp on le fait sur un scalaire pas un tableau sur un tableau on a pop,push,shift,unshift Et pourquoi sauvegarde le fichier dans un tableau? Tu peux utiliser tout simplement la variable spécial $/ (mode slurp) pour que la variable $t avale le fichier entier local $/; $t=; # $t contient le fichier entier

nanou2183 · Answer

alors au début on a utilisé des tableaux car on savait pas utiliser les fichiers directement
et le slurp je connais pas 
je sens que tu vas te marrer en lisant le code car c'est plein de bétises

nanou2183 · Answer

me revoilà 
je ne sais pas si tu as pu regarder ou pas
mais si tu as pu se serait vraiment top !!

lami20j · Answer

Salut, if ($t=~/]*>(.*?)/){ my $corps=$1; #print "corps = $corps " ; } je vois que tu as testé avec un print et il me semble que $corps est vide, n'est-ce pas? essaie comme ça if ($t=~/]*>(.*)/s){ my $corps=$1; #print "corps = $corps " ; } le métacaractères point . ne reconnaît pas le caractère fin de ligne donc il faut utiliser le modificateur de regex /s pour permettre que . reconnaisses et pourquoi utilises-tu *? (quantificateur paresseux) ? si tu veux que $t contiennes tous ce qui est compris entre et alors utilise .* (quantificateur gurmand)

nanou2183 · Answer

bon je pige pas
le corps n'est pas vide 
enfin j'ai changé avec ton truc donc ca ca marche
mais en fait ma fonction vide me supprime tous les mots du texte donc c'est pas super pratique 
ca me rend tarée !!!

lami20j · Answer

au lieu de
$res =~ s/b$_\b//g for @listemotsvides;
mets
$res =~ s/\b$_\b//g for @listemotsvides;

nanou2183 · Answer

j'avais déjà ca
ca marche toujours pas
en fait $res est vide ...

nanou2183 · Answer

je viens de découvrir un nouveau truc en fait c'est là :

if ($t=~/<body[^>]*>(.*)<\/body>/s){
my $corps=$1;
#print "corps = $corps\n\n" ;
}

print "$corps";

le premier print "corps" fonctionne
mais le second ne fonctionne plus
est ce normal???

j'en peux plus de ce truc ca me rend taré

lami20j · Answer

salut, declare la variable à l'extérieur de bloc if my $corps; if ($t=~/]*>(.*)/s){ $corps=$1; #print "corps = $corps " ; } print "$corps";

nanou2183 · Answer

c'est quoi les balises code
et oui je t'ai dit je suis très nulle

nanou2183 · Answer

bon alors maintenant je comprends plus rien 
car maintenant quand j'enlève un print ilme dit erreur je sais pas quoi entrée sortie directory un truc ds ce genre 
bon ca me gave trop j'abandonne je sais pas comment je vais faire mais bon 
merci en tout cas

lami20j · Answer

c'est quoi les balises code 

Tu peux selectionner le texte à mettre entre les balises code et faire un clic sur le bouton Code

sinon tu peux écrire le texte à mettre entre les balises code (en général on mets le code d'un programme, script, etc. ou pour afficher une commande shell)
&#60;code&#62;
ici c'est le texte que sera afficher en style code
&#60;/code&#62;

Tu as aussi à ta disposition pour mettre le texte en gras ou souligne ou italic.

lami20j · Answer

Soit plus optimiste et Regarde tes Messages Privés :-)

nanou2183 · Answer

ok ok 
en tout cas merci pour ton aide et désolé de t'avoir embété pour "rien" 
je comprends pas comment ca se fait que ca marche pas mais là j'en peux plus

draonsimo · Answer

moi j narive a entrer le master code

lami20j · Answer

Salut,

et moi, je ne comprends pas ta question ;-)

Substitution en Perl - Page 2

Discussions similaires

Newsletters