Discussion :

[domidum54]

Bonjour,

Je souhaite faire un reconnaissseur de langues. Je me base sur des trigrammes, il faut donc que j'analyse des groupes de trois caractères. Voilà mon problème:

Imaginons que mon texte passé en argument comprenne la phrase " la vache meugle". Il faudrait que mon programme sorte un fichier en sortie comprennant par exemple "la /vac/he /meu/gle"
J'utilise donc la fonction read: read(IN,$trig,3,0) et ça marche. le problème c'est que je voudrait pouvoir lire cette phrase à partir de différents endroits. Mon fichier de sortie devrait donc également contenir "ach/e m/eug/le" ainsi que toutes les autres possibilités de trigrammes! Je me suis dit que je pouvais écrire
$a =0
while (! eof (IN)) {
read(IN,$trig,3,$a);
puis incrémenter mon $a à chaque passage dans la boucle.
Mais ça ne marche pas. Je ne comprend pas bien pourquoi! :
J'ignore si j'ai été très claire dans mes explications. J'espère néanmoins que qqun pourra m'aider!

[darkloran]

si je comprends bien, il te faudrait deux boucles, une pour parcourir IN et autour une pour incrémenter $a. Note au passage que $a ne prendre que trois valeurs, 0, 1 et 2 puisque tu veux découper en triplets... la valeur $a = 3 donnerait le même découpage que $a = 0

je te propose le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl
 
$test = "la vache meugle fort et mange de l'herbe";
 
$test1 = $test2 = $test3 = $test;
$test2 =~ s/.{1}//;
$test3 =~ s/.{2}//;
 
$test1 =~ s/(.{3})/$1."\/"/esg;
$test2 =~ s/(.{3})/$1."\/"/esg;
$test3 =~ s/(.{3})/$1."\/"/esg;
 
print "$test1\n$test2\n$test3\n";

attention, si la variable (ton IN) contient des retours chariot, ils seront comptés dans cette solution comme "une lettre", ainsi que les apostrophes...

[Jedai]

A mon humble avis, l'utilisation ici de regexs est franchement superflue : il vaudrait mieux utiliser substring, qui est bien plus léger, sur de gros texte la différence sera sensible.
Donc je propose de faire un slurp sur le fichier à transformer, puis d'utiliser substring avec une boucle pour faire le travail.
--
Jedaï