Substitution en Perl

Résolu/Fermé

nanou2183 Messages postés 46 Date d'inscription lundi 19 février 2007 Statut Membre Dernière intervention 15 juin 2010 - 19 févr. 2007 à 19:51
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 25 nov. 2007 à 13:58

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

A voir également:

Substitution en Perl
Denon perl pro test - Accueil - Audio
Perl split ✓ - Forum Perl
Animaux en perles schéma gratuit ✓ - Forum Loisirs / Divertissements
Transformer photo en perle hama - Forum Graphisme
Active perl - Télécharger - Édition & Programmation

29 réponses

Réponse 21 / 29

nanou2183 Messages postés 46 Date d'inscription lundi 19 février 2007 Statut Membre Dernière intervention 15 juin 2010 11
21 févr. 2007 à 01:31

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é

Réponse 22 / 29

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
21 févr. 2007 à 07:39

salut,

declare la variable à l'extérieur de bloc if

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

Réponse 23 / 29

nanou2183 Messages postés 46 Date d'inscription lundi 19 février 2007 Statut Membre Dernière intervention 15 juin 2010 11
21 févr. 2007 à 12:34

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

Réponse 24 / 29

nanou2183 Messages postés 46 Date d'inscription lundi 19 février 2007 Statut Membre Dernière intervention 15 juin 2010 11
21 févr. 2007 à 12:52

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 25 / 29

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
21 févr. 2007 à 12:58

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)
<code>
ici c'est le texte que sera afficher en style code
</code>

Tu as aussi à ta disposition pour mettre le texte en gras ou souligne ou italic.

Réponse 26 / 29

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
21 févr. 2007 à 13:02

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

Réponse 27 / 29

nanou2183 Messages postés 46 Date d'inscription lundi 19 février 2007 Statut Membre Dernière intervention 15 juin 2010 11
21 févr. 2007 à 13:03

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

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
21 févr. 2007 à 13:10

Regarde ici messagerie

Réponse 28 / 29

draonsimo Messages postés 10 Date d'inscription dimanche 11 novembre 2007 Statut Membre Dernière intervention 20 mars 2008
25 nov. 2007 à 13:52

moi j narive a entrer le master code

Réponse 29 / 29

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
25 nov. 2007 à 13:58

Salut,

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

Discussions similaires

C++ SFML : Spécificateur de Substitution Inconnu

Erreur de récupération de l'image sur première pro

Extension fichier sous perl

[Perl] substitution chaîne de caractères

substitution