Discussion :

[Jurafsky]

Bonjour,
Je voudrais créer un programme qui traduit des phrases tapés par l'utilisateur à l'aide de deux fichiers .txt .

J'ai crée deux tableaux avec les mots en anglais et en français.
Après, j'ai utilisé le tableau anglais comme clé et le tableau français comme valeurs dans une hachage.

Maintenant je voudrais savoir comment je pourrais associer les mots tapés par l'utilisateur aux mots dans l'hachage. Je vous montre mon code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#!/usr/bin/perl
use warnings;
use diagnostics;
use Data::Dumper;
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 0;
 
my ($file_en, $file_fr, $user);
my (@words, @mots);
my %diz;
 
$file_en = "en.txt";
$file_fr = "fr.txt";
 
open (EN, "<", $file_en);
open (FR, "<", $file_fr);
 
@words = <EN>;
@mots = <FR>;
 
@diz{@words} = @mots;
 
 
print "Say me the word you want to translate\n";
 
 
while ($user = <STDIN>) {
	chomp($user);
	if(defined($diz{$user})) {
		print "the translation of $user is $diz{$user}\n";
		}
	else {
		print "unknown\n";
		}
	print "another word?\n";
}

Merci pour l'aide !

[Philou67430]

Où est ton problème ?
A part ceci :

Code :

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

1
2
@words = <EN>;
@mots = <FR>;

à remplacer par :

Code :

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

1
2
chomp(@words = <EN>);
chomp(@mots = <FR>);

ton code à l'air correct. Sans les fichiers de test, difficile de dire ce qui ne va pas (il faut par exemple que les fichiers soient bijectifs).

[Jurafsky]

avec chomp maintenant ça marche. Pourquoi il faillait l'écrire?

et si je voulais traduire une phrase entière? Comment il faut le modifier?

Merci!

[Philou67430]

chomp est une fonction qui supprime les retours à la ligne de fin de chaine. Pour que les mots du dictionnaires soient trouvés, il ne faut pas qu'ils contiennent ces caractères.

Pour traduire "mot à mot" une phrase, il suffit de découper la phrase en mots (function split avec comme séparateur un motif adapté contenant espaces et ponctuations), traduire chaque mot, et les ré-assembler avec les même séparateurs de mots).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
while ($user = <STDIN>) {
  chomp($user);
  my @word = split /(\W+)/, $user;
  @word = {
    my $word = $_;
    if ($word =~ /\w+/) {
      if (exists $diz{$word}) {
        $word = $diz{$word};
      }
      else {
        $word = "[$word]";
      }
  } @word;
  print join "", @word;
}

Les mots non traduit sont mis entre [ ].

Une remarque par rapport à ton script : utilise exists au lieu de defined pour tester l'existence d'une entrée dans un hash.

[Lolo78]

Une remarque qui n'a rien à voir avec Perl.

Traduire les différents mots d'une phrase est une chose, obtenir une traduction correcte ou même seulement à peu près compréhensible (ou ayant à peu près le sens de la phrase d'origine) en est une autre, très très éloignée.

Et même simplement traduire les mots d'une phrase peut réserver bien des surprises, car certains mots ne sont clairs (non ambigus) qu'en fonction du contexte.

[Jurafsky]

Une remarque qui n'a rien à voir avec Perl.

Traduire les différents mots d'une phrase est une chose, obtenir une traduction correcte ou même seulement à peu près compréhensible (ou ayant à peu près le sens de la phrase d'origine) en est une autre, très très éloignée.

Et même simplement traduire les mots d'une phrase peut réserver bien des surprises, car certains mots ne sont clairs (non ambigus) qu'en fonction du contexte.

Je suis d'accord. ça c'est juste un exercice pour créer un hachage à partir de deux tableaux.

Quand meme j'ai testé le code que vous m'avez donné et ça ne marche pas (je ne réussis meme pas à le comprendre surtout la partie après ligne 3 )

Je pensais faire un cicle "while" comme ça en utilisant push et pas split

Code :

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

1
2
3
4
while ($user = <STDIN>) {
  chomp($user);
 push @phrase, $user;
 }

mais après comment je pouirrais dire "prends le mot tapé par l'utilisateur et cherche dans l'hachage pour obtenir la traduction"?

je pensais quelque chose comme "foreach $element de @phrase, if $element correspond à la clé de %diz, écris la value correspondante".

Selon vous, ça marche? Comment faut-il l'écrire?