Problème avec mon programme perl Résolu

Question

Bonjour !
Je travaille sous Perl en programmation et j'utilise Crimson Editor pour taper mes scripts....
J'ai un souci avec mon programme au niveau de la variable $trouve et je ne comprends pas pourquoi. Dans le shell, ils me disent bareword "oui" is not allowed... (je sais ce que ca veut dire mais bon ca ne m'aide pas vraiment).
En fait c'est depuis que j'ai intégré la partie avec la variable $trouve que j'ai un souci...(je le mets en italique).
En fait ce que je dois faire c'est ouvrir un fichier (qui sera un dico) et si le mot est dedans soit la traduction de ce mot est donnée soit on l'ajoute dans le dico...

Par contre SVP !!!! la facon dont j'ai l'habitude d'écrire en perl ne ressemble pas vraiment à tout ce que je vois sur le site donc : pas de commandes que je ne connais pas svp...en cas, j vous donnerai ce kj'ai eu en cours...

Voilà ce que j'ai fait jusqu'à présent :

#!usr/bin/perl
use strict;
use warnings;

my $rep;
my $rep2;
my $mot_langue;
my $mot_fr;
my $mot_ang;
my $trad_ang;
my $trad_fr;
my $texte_langue;
my $trouve;
my $ajout2;
my $nomfich;
my $fic_fr;
my $ficdico_fr;
my $ligne;
my $dico_fr;
my $nomfich1;

$nomfich=shift;
$nomfich1=shift;

print ("Voulez-vous traduire un mot, O ou N ?");
$rep=<STDIN>;
chomp $rep;

if ($rep eq "O") {

print ("Voulez-vous traduire un mot francais en anglais, 0 ou N ?");
$rep2=<STDIN>;
chomp $rep2;

if ($rep2 eq "O") {
print ("tapez le mot francais à traduire \n");
$mot_fr=<STDIN>;
chomp $mot_fr;

open $ficdico_fr,'<',"dico_fr.txt" or die "fichier non ouvert!\n";
$trouve=non;

if ($trouve==oui) {
print $trad_ang;
$trad_ang=<STDIN>;
chomp $trad_ang;

}

else {

if ($trouve==non) {
open $ficdico_fr,'>>',"dico_fr.txt" or die "fichier non ouvert!\n";
$ajout2="\n$dico_fr";
print $ficdico_fr $ajout2;
close $ficdico_fr;

open $ficdico_fr,'<',"dico_fr.txt" or die "fichier non ouvert!\n";
print " ";

while ($ligne=<$ficdico_fr>) {
print $ligne;}
}
}
}

else {
if ($rep2 eq "N") {
print ("tapez le mot anglais à traduire \n");
$mot_ang=<STDIN>;
chomp $mot_ang;
}
}
}

else {
if ($rep eq "N") {
print ("tapez le texte à traduire \n");
$texte_langue=<STDIN>;
chomp $texte_langue;
}
}

Voilà...j'espère que qqun pourra m'aider !!
merci d'avance

Configuration: Windows XP
Internet Explorer 7.0

touriste77 · Answer

salut,
et si tu utilisais des booléens à la place des oui/non? c'est-à-dire remplace tes oui  par 1 et tes non par 0. parce que oui (ou non) n'est ni une variable, ni une chaine, ni une constante (je pense que le blem vient de la...)
j'espère t'avoir aidée
bonne continuation

karinn · Answer

ah oui effectivement j'y avais pas pensé...j vais essayer !!
merci pour ton aide !

karinn · Answer

alors maintenant j'ai changé les trucs ca marche mais il me dit k le fichier ne s ouvre pas :-s

touriste77 · Answer

re salut,
vérifie que tes fichiers textes (tes dico) sont dans le bon répertoire.
sinon essaie de changer les 'open' : je me trompe peut-être, mais je n'ai jamais vu des open avec 3 arguments. essaie de faire  open ($ficdico_fr,"< dico_fr.txt" or die "fichier non ouvert!
"); au lieu de mettre le '<' à part.

tiens moi au courant.
s'il y a encore un souci, on continuera à chercher ;-)
bonne continuation

karinn · Answer

salut ben ca ne marche pas...
par contre comment je peux savoir si mes fichiers sont dans le bon repertoire ?...
merci d'avance
a plus

touriste77 · Answer

salut,
tes fichiers doivent être dans le même répertoire que ton programme perl.
au fait, je me suis trompée d'endroit pour fermer la parenthèse :D. 
ça devrait être open ($ficdico_fr,"< dico_fr.txt") or die "fichier non ouvert!
";à plus.

karinn · Answer

salut
ils snt bien dans le meme repertoire k mes scripts donc j comprends pas pkoi il m ouvre pas mon fichier...pask en plus avec l'autre fichier  (pask la ce n'est qu'une partie de mon programme...j'ai deja commencé un peu la suite....)que j'ouvre aps ca marche....
en fait là ce que j cherche a faire c lire un fichier qui contient des traductions de mots...le souci c k pour le moment il n'y a rien dedans...tu crois k c pour ca kil m disent kil é non ouvert ? tu crois kil fodrait que je le crée d'abord avec une commande ?....
Merci de ton aide

p.s.:pour ta commande elle marche mais le fichier ne s'ouvre toujours pas

karinn · Answer

voila c bon ca marche...en fait il fallait que je crée mon fichier d'abord ce que j'avais zappé de faire...
cela dit, si j'ai encore un souci sur mon programme, j'écrirai ! ...et comme je sais k je ne suis pas encore au bout de mes peines....
voila voila...
bye a plus !

touriste77 · Answer

cool!!  n'hésite pas à écrire si t'as encore des soucis ;)
++

karinn · Answer

bah voilà de nouveau prise de tete !!! lol
donc voila j'ai créé mon fichier (j'ai mis qques traductions dedans) et j'ai mis la commande pour pouvoir le lire.
et maintenant il faut que de ce fichier, j puisse afficher la ligne de traduction qui contient le mot que je voulais traduire...
ex: le mot à traduire est le mot "jeu" et la ligne du fichier que je veux afficher c'est "jeu game".

merci d'avance!

touriste77 · Answer

salut,
voilà un modèle pour rechercher une ligne contenant un mot particulier dans un fichier, en utilisant les expressions régulières. tu adapteras, ok? ;)open (FICDICO_FR,"< dico_fr.txt" or die "fichier non ouvert!
");
while ($ligne = <FICDICO_FR>) {
    if ($ligne = ~/^$mot/) {
        print "$ligne
";
    }
}remarque : rajoute un espace à la fin de $mot pour que la recherche reconnaisse le mot et non les mots qui commencent par $mot (sinon, il reconnaîtrait aussi "jeudi" par exemple quand tu cherches "jeu")
bonne continuation
++

karinn · Answer

Merci ca marche !! :-)
par contre tu pourrais juste m'expliker la sigification des expressions regulieres dans ta commande stp ?...que j m'endorme moins bete ce soir lol. (puisk je n'ai pas l'habitude de les utiliser en fait...j'les ai pas trop apprises en cours...)
~/^/$mot_fr /

Merci d'avance...
et si jms j'ai un souci, j'ecris !!!

touriste77 · Answer

salut,
contente d'avoir pu t'aider. en fait, dans $ligne = ~/^$mot/ =~ sert à lier $ligne et une expression régulière
/ sert à délimiter le motif, c'est-à-dire le mot rechercher (ici, $mot)
^ dit que $mot doit apparaître en début du mot reconnu par l'expressoin régulière.

voilà un site que j'ai trouvé intéressant et super clair sur le sujet : https://formation-perl.fr/guide-perl-08.html

bonne lecture ;)
++

lami20j · Answer

Salut,

je viens à la fin quand le problème est résolu :-))

je me permets de faire quelques remarques. :-)


=~ sert à lier $ligne et une expression régulière 
=~ est un opérateur binaire qui applique un motif de reconnaissance à une expression scalaire.


/ sert à délimiter le motif, c'est-à-dire le mot rechercher (ici, $mot) 

il s'agit d'opérateur m// pour les regex (m n'est pas obligatoire)

voici l'opérateur avec ses modificateursm/MOTIF/cgimosx

^ dit que $mot doit apparaître en début du mot reconnu par l'expressoin régulière. 

il dit plutôt que le contenu de la variable $mot est ancré en début de la chaîne.

Et puisqu'on est en Perl mieux vaut apprendre l'art d'écrire en Perl :-))

Au lieu de
open (FICDICO_FR,"< dico_fr.txt" or die "fichier non ouvert!
");
on peut écrireopen FICDICO_FR,"dico_fr.txt" or die "fichier non ouvert!
";
Le fichier est en lecture par défaut donc pas besoin de <
Si on utilise or pas besoin de paranthèses vu la priorité des opérateurs (or a la plus basse)

karinn · Answer

merci pour vos explications a tous les deux...
je vais m'empresser d'aller sur le site  que tu m'as indiqué :-)
a plus !

touriste77 · Answer

de rien ;)
++

karinn · Answer

salut !!
tu te souviens du dernier pbk j'ai eu ?...: et maintenant il faut que de ce fichier, j puisse afficher la ligne de traduction qui contient le mot que je voulais traduire... 
ex: le mot à traduire est le mot "jeu" et la ligne du fichier que je veux afficher c'est "jeu game". 
bah en fait, est ce kil est possible de faire qqch qui donne le mm resultat mais avec une variable $trouve=oui/non ?
pask en fait j'ai essayé de faire mon else { if { mais il ne marche pas...alors a moins que ce soit moi qui ait fait une erreur dedans...
le "else if" se fait bien,d'apres ce k tu m'as donné la derniere fois, avec le "!"...rassure moi...
en fait j te demande ca pour la variable $trouve  pask pour le "else if", en gros ca donne : si le mot que je cherche a traduire ($mot_fr) n'est pas dans le fichier traduction ($ficdico_fr1) (donc en gros si le programme ne le trouve pas dans le fichier), il faut que je le rajoute dans le dico...donc je me disais qu'il faudrait peut etre la variable $trouve. cela dit, si c'est possible de le faire avec la commande que tu m'as donné la derniere fois c pas mal non plus...lol

voila !!
merci d'avance
a plus

lami20j · Answer

Salut,

$trouve=non; 

if ($trouve==oui) { 
print $trad_ang; 
$trad_ang=<STDIN>; 
chomp $trad_ang; 

} 

Pour commencer, je ne sais pas ce que tu obtiens comme résultat, mais ce code n'est pas bon
D'abord sache que "oui" c'est une chaîne de caractère et l'affectation de la variable $trouve on peu la faire 

$trouve = 'oui';
ou
$trouve = "oui";

il y a encore des possibilités mais je m'arrête là

ensuite quand on fait le teste avec une chaîne on utilise les opérateurs (comparaison et égalité) eq, ne, etc et pas == & Cie (qui teste les variables numériques)
dans ton cas
$trouve eq "oui" au lieu de $trouve == oui
bah en fait, est ce kil est possible de faire qqch qui donne le mm resultat mais avec une variable $trouve=oui/non ? 

En bref, pour repondre à ta question, oui c'est possible.

karinn · Answer

ok merci pour ton aide !!!
a plus...

karinn · Answer

j'ai de nouveau un petit souci avec mon programme... en fait je suis en train de faire le else { if { qui va de paire avec : while ($ligne = ) { if ($ligne = ~/^$mot/) { print "$ligne "; } } je mets mon "else if" ...qqun pourrait me dire ce qui cloche dedans svp ? en fait je cherche a faire : si le mot que je veux traduire (que j'ai tapé) ne se trouve pas dans mon fichier, j'aimerai que mon programme l'ajoute dans le dico (avec la traduction à coté) #!usr/bin/perl use strict; use warnings; my $rep; my $rep2; my $mot_langue; my $mot_fr; my $mot_ang; my $trad_ang; my $trad_fr; my $texte_langue; my $trouve; my $ajout2; my $nomfich; my $fic_fr; my $ficdico_fr1; my $ligne; my $nomfich1; my $dico_fr1; my $ligne1; my $dico_ang1; my $ficdico_ang1; my $nomfich2; my $ajout1; my $dico_ajoutang; $nomfich=shift; $nomfich1=shift; $nomfich2=shift; print ("Voulez-vous traduire un mot, O ou N ?"); $rep=; chomp $rep; if ($rep eq "O") { print ("Voulez-vous traduire un mot francais en anglais, 0 ou N ?"); $rep2=; chomp $rep2; if ($rep2 eq "O") { print ("tapez le mot francais à traduire "); $mot_fr=; chomp $mot_fr; open $ficdico_fr1,'>>',"dico_fr1.txt" or die "fichier non ouvert! "; close $ficdico_fr1; open $ficdico_fr1,'<',"dico_fr1.txt" or die "fichier non ouvert! "; while ($ligne=<$ficdico_fr1>) { if ($ligne=~/^$mot_fr /) { print ("$ligne "); $ligne=; chomp $ligne; } else { if ($ligne!~/^$mot_fr /) { open $ficdico_fr1,'>>',"dico_fr1.txt" or die "fichier non ouvert! "; $ajout1=" $mot_fr"; print $ficdico_fr1 $ajout1; close $ficdico_fr1; open $ficdico_fr1,'<',"dico_fr1.txt" or die "fichier non ouvert! "; print " "; } } } while ($ligne=<$ficdico_fr1>) { print $ligne; } } else { if ($rep2 eq "N") { print ("tapez le mot anglais à traduire "); $mot_ang=; chomp $mot_ang; open $ficdico_ang1,'>>',"dico_ang1.txt" or die "fichier non ouvert! "; close $ficdico_ang1; open $ficdico_ang1,'<',"dico_ang1.txt" or die "fichier non ouvert! "; while ($ligne1=<$ficdico_ang1>) { if ($ligne1=~/^$mot_ang /) { print ("$ligne1 "); $ligne1=; chomp $ligne1; } } } } } else { if ($rep eq "N") { print ("tapez le texte à traduire "); $texte_langue=; chomp $texte_langue; } } je pensais que ca allait etre bon, puisk j'ai testé une partie du programme (open $ficdico_fr1....print $ligne)et elle marche, mais apparemment non donc voilà ... la partie qui me pose pb est en italique... Merci d'avance !!

touriste77 · Answer

salut, en fait, je t'explique ce que ton code fait, tu comprendras pourquoi ça marche pas : while ($ligne=<$ficdico_fr1>) { # $ligne va prendre successivement comme valeur # chaque ligne de ton fichier $ficdico_fr1 if ($ligne=~/^$mot_fr /) { # il regarde une ligne puis vérifie si elle commence par $mot print ("$ligne "); $ligne=; chomp $ligne; } else { if ($ligne!~/^$mot_fr /) { # si la ligne analysée ne commence pas par $mot, # tu rajoutes le mot dans ton dico # le problème c'est que tu n'as pas forcément analysé tout le fichier, # mais juste la ligne # donc à chaque fois qu'une ligne ne contient pas $mot, # ce dernier va être rajouté au dico open $ficdico_fr1,'>>',"dico_fr1.txt" or die "fichier non ouvert! "; $ajout1=" $mot_fr"; print $ficdico_fr1 $ajout1; close $ficdico_fr1; open $ficdico_fr1,'<',"dico_fr1.txt" or die "fichier non ouvert! "; print " "; } } } en gros si ton dico contient 100 lignes et que $mot est sur la dernière ligne, $mot va être rajouté 99 fois (pour les 99 premières lignes ou il n'a pas été trouvé) avant de rentrer dans le if ($ligne=~/^$mot_fr /). comme solution, tu peux effectivement utilisé un $trouve, par exemple. ça donnerait : $trouve = 0; while ($ligne=<$ficdico_fr1>) { if ($ligne=~/^$mot_fr /) { print ("$ligne "); $ligne=; chomp $ligne; $trouve = 1; } } if ($trouve == 0) { # si je n'ai pas trouvé $mot dans le dico, je le rajoute open $ficdico_fr1,'>>',"dico_fr1.txt" or die "fichier non ouvert! "; $ajout1=" $mot_fr"; print $ficdico_fr1 $ajout1; close $ficdico_fr1; open $ficdico_fr1,'<',"dico_fr1.txt" or die "fichier non ouvert! "; print " "; }vli vlou. (pas trop long l'explication? :) ) bon courage pour la suite. ++

lami20j · Answer

Salut, sans trop entrer dans les détails, j'ai pris seulement ton dernier code $trouve = 0; while ($ligne=<$ficdico_fr1>) { if ($ligne=~/^$mot_fr /) { print ("$ligne "); $ligne=; chomp $ligne; $trouve = 1; } } if ($trouve == 0) { # si je n'ai pas trouvé $mot dans le dico, je le rajoute open $ficdico_fr1,'>>',"dico_fr1.txt" or die "fichier non ouvert! "; $ajout1=" $mot_fr"; print $ficdico_fr1 $ajout1; close $ficdico_fr1; open $ficdico_fr1,'<',"dico_fr1.txt" or die "fichier non ouvert! "; print " "; }et ça donne plutôt quelque chose comme ça pourquoi ouvrir et fermer le handle pour chaque ligne? pour karinn apart ton code dont la lisibilité manque ;-), veux tu expliquer exactament ce que tu veux faire et je t'écrirai le code en utilisant peut être une autre manière open $ficdico_fr1,'>>',"dico_fr1.txt" or die "fichier non ouvert! "; while ($ligne=<$ficdico_fr1>) { if ($ligne=~/^$mot_fr /) { print ("$ligne "); chomp($ligne=); }else { # si je n'ai pas trouvé $mot dans le dico, je le rajoute $ajout1=" $mot_fr"; print $ficdico_fr1 $ajout1; open $ficdico_fr1,'<',"dico_fr1.txt" or die "fichier non ouvert! ";# c'est quoi l'intêret ?! print " "; # la même question ?! } } close $ficdico_fr1;

karinn · Answer

Merci pour ton aide...j'ai mieux compris mes erreurs et mes excès d'ecriture dans mon script lol
Pour le script, je prefere l'ecrire toute seule (c gentil de m proposer de m'l'écrire cela dit) et demander de l'aide comme je le fais si j'en ai besoin :-) ...
voilà voilà
a plus !!!

lami20j · Answer

Salut,

je prefere l'ecrire toute seule
c'est toi qui vois et j'apprecie :-))

touriste77 · Answer

salut,
contente de t'avoir un peu eclairée.
bonne continuation pour la suite ;)
++

karinn · Answer

coucou juste pour te dire que j'ai essayé de faire avec la variable $trouve mais ca ne marche pas :-s....je comprends pas pkoi....

lami20j · Answer

Salut,

affiche ici la dernière version de ton script et utilise les balises code pour la lisibilité
merci

karinn · Answer

ok je t'envoie ca...autant c moi qui me suis gourrée qque part... #!usr/bin/perl use strict; use warnings; my $rep; my $rep2; my $mot_langue; my $mot_fr; my $mot_ang; my $trad_ang; my $trad_fr; my $texte_langue; my $trouve; my $ajout2; my $nomfich; my $fic_fr; my $ficdico_fr1; my $ligne; my $nomfich1; my $dico_fr1; my $ligne1; my $dico_ang1; my $ficdico_ang1; my $nomfich2; my $ajout1; my $dico_ajoutang; $trouve=0; $nomfich=shift; $nomfich1=shift; $nomfich2=shift; print ("Voulez-vous traduire un mot, O ou N ?"); $rep=; chomp $rep; if ($rep eq "O") { print ("Voulez-vous traduire un mot francais en anglais, 0 ou N ?"); $rep2=; chomp $rep2; if ($rep2 eq "O") { print ("tapez le mot francais à traduire "); $mot_fr=; chomp $mot_fr; open $ficdico_fr1,'>>',"dico_fr1.txt" or die "fichier non ouvert! "; close $ficdico_fr1; open $ficdico_fr1,'<',"dico_fr1.txt" or die "fichier non ouvert! "; while ($ligne=<$ficdico_fr1>) { if ($ligne=~/^$mot_fr /) { print ("$ligne "); $ligne=; chomp $ligne; $trouve=1; } else { if ($trouve==0) { open $ficdico_fr1,'>>',"dico_fr1.txt" or die "fichier non ouvert! "; $ajout1=" $mot_fr"; print $ficdico_fr1 $ajout1; close $ficdico_fr1; open $ficdico_fr1,'<',"dico_fr1.txt" or die "fichier non ouvert! "; print " "; } } } } else { if ($rep2 eq "N") { print ("tapez le mot anglais à traduire "); $mot_ang=; chomp $mot_ang; open $ficdico_ang1,'>>',"dico_ang1.txt" or die "fichier non ouvert! "; close $ficdico_ang1; open $ficdico_ang1,'<',"dico_ang1.txt" or die "fichier non ouvert! "; while ($ligne1=<$ficdico_ang1>) { if ($ligne1=~/^$mot_ang /) { print ("$ligne1 "); $ligne1=; chomp $ligne1; } } } } } else { if ($rep eq "N") { print ("tapez le texte à traduire "); $texte_langue=; chomp $texte_langue; } } voila ! merci d'avance...

lami20j · Answer

open $ficdico_fr1,'>>',"dico_fr1.txt" or die "fichier non ouvert!
";
close $ficdico_fr1;

je ne comprends pas pourquoi tu écris ça
ça ne sers à rien
tu ouvres un fichier en mode ajout et toute de suite tu le ferme sans faire une opération quelconque
donc c'est inutile

ça m'aidera aussi si tu me donnes tes fichiers (je n'ai pas besoin des fichies complets, juste quelques lignes pour tester en réelle)

lami20j · Answer

while ($ligne=<$ficdico_fr1>) { if ($ligne=~/^$mot_fr /) { print ("$ligne "); $ligne=; chomp $ligne; $trouve=1; je ne comprends pas non plus ce que tu veux faire ici $ligne contiendra au fur à mesure les lignes du fichier ficdico_fr1 alors pourquoi tu demandes une entrée depuis STDIN pour $ligne? dit moi si je comprends bien ton problème tu as 2 fichiers dico le fichier dico_fr qui est un dictionnaire français/anglais ami (nom) - friend.• boyfriend (petit ami).• girlfriend (petite amie). . . et le fichier dico_ang qui est un dictionnaire anglais/français friend (nom) - ami.• familier.• camarade. . . ensuite ton script demande un mot en français ou en anglais en fonction de cas tu vérifies si le mot existe déjà dans le dictionnaire si c'est le cas alors tu affiche la traduction sinon tu ajoutes mot au dictionnaire ai-je bien compris?

lami20j · Answer

voilà ton script ce que tu vois en gras c'est le commentaire pour ton problème avec $trouve#!usr/bin/perl use strict;use warnings; my $rep; my $rep2; my $mot_langue; my $mot_fr; my $mot_ang; my $trad_ang; my $trad_fr; my $texte_langue; my $trouve; my $ajout2; my $nomfich; my $fic_fr; my $ficdico_fr1; my $ligne; my $nomfich1; my $dico_fr1; my $ligne1; my $dico_ang1; my $ficdico_ang1; my $nomfich2; my $ajout1; my $dico_ajoutang; $trouve=0; $nomfich=shift; $nomfich1=shift; $nomfich2=shift; print ("Voulez-vous traduire un mot, O ou N ?"); $rep=; chomp $rep; if ($rep eq "O") { print ("Voulez-vous traduire un mot francais en anglais, 0 ou N ?"); $rep2=; chomp $rep2; if ($rep2 eq "O") { print ("tapez le mot francais à traduire : "); $mot_fr=; chomp $mot_fr; open $ficdico_fr1,'>>',"dico_fr1.txt" or die "fichier non ouvert! "; close $ficdico_fr1; open $ficdico_fr1,'<',"dico_fr1.txt" or die "fichier non ouvert! "; while ($ligne=<$ficdico_fr1>) { if ($ligne=~/^$mot_fr /) { print ("$ligne"); $trouve=1; }else { if ($trouve==0) { open $ficdico_fr1,'>>',"dico_fr1.txt" or die "fichier non ouvert! "; $ajout1=" $mot_fr"; print $ficdico_fr1 $ajout1; close $ficdico_fr1; open $ficdico_fr1,'<',"dico_fr1.txt" or die "fichier non ouvert! "; print " "; $trouve = 1; # pour sortir de la boucle il faut mettre $trouve à 1 # sinon il sera toujours 0, donc tu as une boucle infini # puisque la condition est toujours vraie if ($trouve == 0) # quand tu mets $trouve = 1 la condition n'est plus remplis # donc tu sors de la boucle } } } }else { if ($rep2 eq "N") { print ("tapez le mot anglais à traduire "); $mot_ang=; chomp $mot_ang; open $ficdico_ang1,'>>',"dico_ang1.txt" or die "fichier non ouvert! "; close $ficdico_ang1; open $ficdico_ang1,'<',"dico_ang1.txt" or die "fichier non ouvert! "; while ($ligne1=<$ficdico_ang1>) { if ($ligne1=~/^$mot_ang /) { print ("$ligne1 "); $ligne1=; chomp $ligne1; } } } } }else { if ($rep eq "N") { print ("tapez le texte à traduire "); $texte_langue=; chomp $texte_langue; } } __END__

karinn · Answer

qques lignes de mon dico francais/anglais :
jeu game
choix choice
voiture car
...

et les lignes pour mon dico anglais/francais sont les mm mais a l envers bien sur...

en fait ce que doit faire mon programme c'est : 
soit traduire un ou plusieurs mots (donc tant qu'il le souhaite) soit traduire un texte français

pour la traduction de un ou plusieurs mots (je n'ai pas encore fait la partie pour "plusieurs mots"...faudra que je me penche dessus d'ici peu) :
- choix du sens (francais/anglais ou l'inverse)
- si le mot que l'on veut traduire est dans le dico alors le programme donne la ligne de traduction ; si le mot n'y est pas il faut l'ajouter avec sa traduction dans le(s) dico(s)

pour la traduction du texte
-le programme parcourt le texte
-quand un mot du texte n'est pas dans le dico, il ya demande de traduction et ajout dans le(s) dico(s)

voila j'espere que c'est plus clair...

lami20j · Answer

oui, c'est clair :-))

toutefois, as-tu testé ton script avec la modif que j'ai fait?

karinn · Answer

ok ok ! :-)
pour le script que tu as modifié, oui je l'ai testé et effectivement c mieux :-) j'ai aussi compris mon erreur avec les chomp et STDIN donc merci  (!!) pask pour moi c t machinal en fait c pour ca...lol
sinon pour le script, le souci c kil ne me rajoute pas le mot que je cherche a traduire sil n'existe pas dans le dico :-s  ...

voila voila !

lami20j · Answer

voilà une petit script qui fera ce que tu as besoin pour l'instant j'ai gardé $trouve qu'en penses-tu le code n'est pas difficile et il garde la structure de ton code :-) pour les phrases ça sera un peu pareil si ça te va comme ça on peut continuer :-)) (personne ne va nier ton travail ;-) #!/usr/bin/perl use strict;use warnings; my $trouve = 0; print <<"FIN"; Dictionnaire 1. français/anglais 2. anglais/français 3. quitter FIN print "Faites votre choix : "; chomp (my $rep = ); if ($rep eq '1'){ print "********** Traduction français/anglais ********** "; print "Entrez le mot à traduire : "; chomp(my $mot_fr = ); open DICO_FR_EN, "dico_fr.txt" or die "E/S : $! "; my $ligne; while($ligne = ){ if ($ligne =~ /^$mot_fr\b/){ $trouve = 1; last; } } close DICO_FR_EN; if ($trouve == 0){ open FR_EN,">> dico_fr.txt" or die "E/S : $! "; print "Entrez la traduction du mot inexistant : "; chomp( my $traduction = ); print FR_EN "$mot_fr $traduction "; }else { print "$ligne "; } }elsif ($rep eq '2'){ print "********** Traduction anglais/français ********** "; print "Entrez le mot à traduire : "; chomp(my $mot_en = ); open DICO_EN_FR, "dico_en.txt" or die "E/S : $! "; my $ligne; while($ligne = ){ if ($ligne =~ /^$mot_en\b/){ $trouve = 1; last; } } close DICO_EN_FR; if ($trouve == 0){ open EN_FR,">> dico_en.txt" or die "E/S : $! "; print "Entrez la traduction du mot inexistant : "; chomp( my $traduction = ); print EN_FR "$mot_en $traduction "; }else { print "$ligne "; } }elsif ($rep eq '3'){ die "Vous avez choisir de quitter. Au revoir! "; } __END__

karinn · Answer

Re !! Non ca va j'aime bien... :-) Mais y a deux trois trucs que je comprends pas....ne m'en veux pas lol !! 1- print <<"FIN"; Dictionnaire 1. français/anglais 2. anglais/français 3. quitter FIN -> à quoi ca sert ?...je ne connais pas cette trnascription... 2- if ($ligne =~ /^$mot_fr\b/){ -> le \b/ ca correspond a quoi ? 3- while($ligne = ){ if ($ligne =~ /^$mot_fr\b/){ $trouve = 1; last; -> ca sert a quoi "last" ?... voila voila sinon oui on peut continuer ;-) Merci bcp pour ton aide en tout cas....

lami20j · Answer

pour 1

c'est l'écriture here document sur Perl
ça evite d'écrire plusieurs lignes avec print

print "Dictionnaire

";
print "1. français/anglais
";
print "2. anglais/français
";
print "3. quitter
"

pour 2

\b sers pour ancrer le mot
par exemple si tu as le mot ami dans le dico fr - en 
si tu tapes
am
le mot sera reconnu
mais avec \b il n'y a pas de risque
 
tu peux enlever le \b et faire des tests

pour 3

la boucle while parcours toutes les lignes
mais ça ne sers à rien si le mot est trouvé
avec last on sors de la boucle si le mot est trouvé

tu peux enlever last et tu verras le résultat

Ex
si le dico contient
ami friend
grand big
fille girl

si je teste le mot ami par exemple
que ce passera?
le mot est trouvé et $trouve mis à 1
mais la boucle va continuer
le mot ne correspond pas à grand donc $trouve est mis à 0
et ainsi de suite

en bref, le test sur la derniere ligne sera pris en compte
avec last je m'arrête de que je trouve le mot et $trouve est 1
ou je continue jusqu'à la fin et $trouve est zéro

karinn · Answer

ok !!
merci pour tes explications...
et le "last" j peux le mettre avec mon ecriture perl à moi ?...

lami20j · Answer

Salut,

non, dans ton code il n'y a pas besoin

en revanche je trouve que la version avec un menu c'est plus agréable et justifié
au mois on a à l'écran le menu de ce qu'on peut faire
à toi de voir

avant de commencer de coder pour la partie texte/remplacement
vaut mieux faire un algo pour voir ce que ça donne

karinn · Answer

en fait tout bien réfléchi j prefere garder mon ecriture perl ...cela dit, comme j't'ai dit, si j'ai besoin d'aide, je te fais signe ;-)

lami20j · Answer

Salut,

comme je te l'ai dit au début il fallait d'abord faire l'algo de ton cas et ensuite commencer écrire le code
d'après ton message je vois que tu ne l'as pas fait :-))

je te conseille une chose
de travailler au début dans une seule direction
c'est-à-dire dico français/anglais

une fois que tu as fini le dico français/anglais et qu'il fonctionne il ne te restera qu'à copier le code et faire les modifications de nom de fichiers
de toute façon ça sera la même chose avec la seule différence qu'il traitera anglais/français
c'est pour ça que je te parle d'un algo puisqu'en fait tu auras presque le même code 2 fois
pense à la programmation structurée dans ton cas

quand j'ai écrit mon bout de script je voulais tout simplement de ne pas m'eloigner de ton code, mais si j'aurais du faire un tel script je l'aurais fait autrement

Voici un exemple
j'ai crée une fonction dico qui fait tout
si jamais il y a des problèmes il faut juste modifier les variables ou regarder dans la fonction
c'est plus compact et facile à faire des modifications

le script

#!/usr/bin/perl
use strict;use warnings;
my $trouve = 0;

print <<"FIN";
Dictionnaire
1. français/anglais
2. anglais/français
3. quitter
FIN
print "Faites votre choix : ";
chomp (my $rep = <STDIN>);

dico($rep);

sub dico {
    my $choix = shift;
    my ($dir,$dico);
    if ($choix == 3){
      die "Vous avez choisi de quitter. Au revoir!\n";
    }elsif ($choix == 1){
      ($dir,$dico) = ('français/anglais', 'dico_fr.txt');
    }else {
      ($dir,$dico) = ('anglais/français', 'dico_en.txt');
    }
  print "********** Traduction $dir **********\n";
  print "Entrez le mot à traduire : ";
  chomp(my $mot = <STDIN>);
  open DICO, "$dico"
     or die "E/S : $!\n";

  my $ligne;
  while($ligne = <DICO>){
    if ($ligne =~ /^$mot\b/){
      $trouve = 1;
      last;
    }
  }
  close DICO;

  if ($trouve == 0){
    open DICO,">> $dico" or die "E/S : $!\n";
    print "Entrez la traduction du mot inexistant : ";
    chomp( my $traduction = <STDIN>);
    print DICO "$mot $traduction\n";
  }else {
    print "$ligne";
  }
}
__END__

Résultat français/anglais
en gras tu verras le nouveau mot ajouté et c'est pareil pour anglais/français

lami20j@deb:~/trash$ cat dico_fr.txt
ami friend
grand big
lami20j@deb:~/trash$ perl ccm.pl
Dictionnaire
1. français/anglais
2. anglais/français
3. quitter
Faites votre choix : 3
Vous avez choisi de quitter. Au revoir!
lami20j@deb:~/trash$ perl ccm.pl
Dictionnaire
1. français/anglais
2. anglais/français
3. quitter
Faites votre choix : 1
********** Traduction français/anglais **********
Entrez le mot à traduire : ami
ami friend
lami20j@deb:~/trash$ perl ccm.pl
Dictionnaire
1. français/anglais
2. anglais/français
3. quitter
Faites votre choix : 1
********** Traduction français/anglais **********
Entrez le mot à traduire : ville
Entrez la traduction du mot inexistant : city
lami20j@deb:~/trash$ cat dico_fr.txt
ami friend
grand big
ville city

Résultat anglais/français

lami20j@deb:~/trash$ cat dico_en.txt
friend ami
big grand
lami20j@deb:~/trash$ perl ccm.pl
Dictionnaire
1. français/anglais
2. anglais/français
3. quitter
Faites votre choix : 3
Vous avez choisi de quitter. Au revoir!
lami20j@deb:~/trash$ perl ccm.pl
Dictionnaire
1. français/anglais
2. anglais/français
3. quitter
Faites votre choix : 2
********** Traduction anglais/français **********
Entrez le mot à traduire : friend
friend ami
lami20j@deb:~/trash$ perl ccm.pl
Dictionnaire
1. français/anglais
2. anglais/français
3. quitter
Faites votre choix : 2
********** Traduction anglais/français **********
Entrez le mot à traduire : city
Entrez la traduction du mot inexistant : ville
lami20j@deb:~/trash$ cat dico_en.txt
friend ami
big grand
city ville

tu fait ce que tu veux, mais si tu écrit de cette façon c'est plus pratique :-)
Bon courage! ;-)

karinn · Answer

ben pour le script je n'arrete pas d'essayer...seulement quand je m'y mets j'ai l'esprit qui pense a tellement de choses en mm tps a propos de mon programme et la maniere de le faire que je m'y perds un peu...
sinon pour ce que tu m'as dit a propos des 2 scripts et tout , oui tkt pas c ce que je fai depuis le debut en changeant juste les variables...
au fait pour l'ajout des traductions dans les dico je me suis apercue qu'en fait ca marchait !! lol ...donc je suis contente
et la j bloque toujours sur la traduction de texte ( francais anglais pour le moment...aps je sais k j'aurais juste a copier coller changer les variables...)...je vais essayer de moins m'eparpiller...
merci pour ton script au fait mais je garde mon ecriture a moi...si je commence a ecrire autrement je ne vais plus m'en sortir...ya pas mal de trucs que je n'ai pas appris et que tu ecris toi (bien que j'aime apprendre de nouvelles choses là n'est pas le souci)...
bref
si jms je me perds de nouveau je te fais signe...

karinn · Answer

coucou je viens de decouvrir que la prof a mis des cours sur le site de la fac...y compris les commandes et les différentes ecritures de code que tu m'as montrées...
donc je vais te piquer ton ecriture lol pask c clair et net que c largement plus pratique...
bon il faut que je vois qd mm pour la traduction de texte pask je bloque tjs sur comment extraire de ma ligne la traduction d'unmot...mais bon vu les nouveaux cours que j'ai ca devrait aller je pense...je viens de finir de les lire mais je vais les approfondir...
et si j'ai u truc que je comprends pas ben j ferai appel a tes bons services ;-)

Problème avec mon programme perl

43 réponses

Discussions similaires

Newsletters