Salut,

@delta c'est un tableau de tableaux donc chaque élément du @delta est un tableau

print "voici delt: @$_\n" foreach @delt;

Merci pour ces infos mais cela va me servir seulement à afficher le tableau de tableau. COmment dois-je faire pour avoir accès à un élément bien spécifique du tableau dans mon autre fonction, par exemple $delt[$q][$mot] ne fonctionne pas si je l'utilise dans ma deuxième fonction.

merci d'avance

Salut,

@liste=($texte,@delt,$m);

une fois que tu as fait ça sache que l'identité de $text,@delt et $m sont perdue, tu obtiens une liste plate

donc @delta=$_[1];
ne contient pas le @delt mais le 1ère élément de @delt (et je ne crois pas que c'est ça que tu veux) qui est un tableau anonyme

pareil pour $m=$_[2];
$m contient le 2ème élément de @delta qui est un tableau anonyme

Tu dois passer les arguments de cette façon

&Recherche_Automate_Fini($text,\@delt,$m);

Je te remercie pour l'info de comment on passe un tableau 2D en paramètre dans une fonction.

Comment récupère t-on les paramètres dans la fonctions? toujours avec $_[0] ...?
je vais voir si cela marche et je te redis!

En fait ma fonction 1 doit créer le tableau 2D avec un algorithme de modélisation du langage, l'algorithme est OK et le tableua est rempli car si j'affiche :

$delta[$q][$mot]=$k;
print "$delta[$q][$mot] ";

tout cela se passe bien, j'ai bien toutes mes valeurs.

En suite le dois pouvoir retourner ce tableau 2D afin de la passer en paramètre (comme tu ma dit) dans ma deuxième fonction qui est une recherche d'un motif dans un texte: je me sert donc du tableau 2D dans cette fonction.

Si je suis pas clair, dis le moi, je me rend pas trop compte
merci encore

Le mecanisme des sous-programmes je le connais ainsi que les structures de données.

Ce que j'ai besoin c'est de ce que as en entrée et ce que tu veux en sortie

En bref, ton algo

Un exemple concre :
entrée <- $motif
entrée <- $texte
affiche -> résultat

C'est ça que je veux savoir, pour que je puisse t'aider.
Déjà $lettre peut être une lettre, en ce cas je ne vois pas comment tu peux utiliser une lettre en tant qu'indice dans tableau.

lami20j

En fait un entrée de ma première fonction j'ai un mot et en sortie le tableau 2D en question qui se présente sous cette forme:
Si je donne le motif 'ababaca' à ma fonction , le tableau qu'elle doit sortir sera:
(la longueur du motif est 7 et l'alphabet ('a','b','c')

Etat a b c
0 1 0 0
1 1 2 0
2 3 0 0
3 1 4 0
4 5 0 0
5 1 4 6
6 7 0 0
7 1 2 0

Je souhaite ensuite pouvoir afficher ce tableau et le passer en paramètre dans ma deuxième fonction
Elle prend en entrée un texte (avec le motif caché dedans), le tableau 2D et la longueur du motif (ici 7)
Elle doit me retourner le décalage du motif dans le texte (l'affichage se fait avec print dans ma deuxième fonction)

Le problème est la sortie du tableau 2D pour le passer en paramètre dans la 2ème fonction!

merci d'avance encore, j'espère que je t'ai éclairé

Quand on essaie d'accèder à un élément de ton tableau de tableaux je dois faire $tableau[$i][$j]
A savoir que $i et $j sont des indices, donc des nombres entiers 0,1,2..........
Dans ton cas tu n'utilise pas un nombre mais une lettre
Tu utilises $mot et $lettre comme des indices pour le tableau mais c'est aberrant puisque $mot et $lettre contient une lettre et pas un nombre.
lami20j

Pour comprendre ce que je veux dire voici un test, pour te monter l'erreur d'interprétation que tu fait
En gras tu verras les tests que j'ai mis, certaines lignes je l'ai mis en commentaire, je traite que la 1ère fonction que tu as l'impression qu'elle fonction mais c'est totalement faux ;-)

Le script

#!/usr/bin/perl
use warnings;
print "Veuillez entrer un motif \n";
$motif=<>;
chomp($motif);
$m=length($motif);

sub Calcul_Fonction_Transition {
  $n= $_[0];
  @sigma=('a','b','c');
  $m=length($n);
  for ($q=0 ; $q <= $m ; $q++) {
    foreach $mot (@sigma) {
      if ($m+1 < $q+2 ) {
        $k=$m+1;
      }else {
        $k=$q+2;
      }
      do {
          $k=$k-1;
          $pk=substr($n,0,$q).$mot;
          $lpk=length($pk);
      } until ((substr($n,0,$k))eq(substr($pk,$lpk-$k,$k)) or ($k==0));
      $delta[$q][$mot]=$k;
#     print "$delta[$q][$mot] ";
      print "q = $q - mot = $mot - $k => $delta[$q][$mot]\n";
    }
#    print"\n";
  }
  return (@delta);
}
# appel par invocation de la fct suivi de la liste des valeurs des paramÃ~Cštres effectifs
# $tableau[$i][$j]@delt=Calcul_Fonction_Transition($motif);
#print "voici delt: @$_\n" foreach @delt;

lami20j@debian:~/trash$ perl ccm.pl
Name "main::delt" used only once: possible typo at ccm.pl line 33.
Veuillez entrer un motif
ababaca
Argument "a" isn't numeric in array element at ccm.pl line 24, <> line 1.
q = 0 - mot = a - 1 => 1
Argument "b" isn't numeric in array element at ccm.pl line 24, <> line 1.
q = 0 - mot = b - 0 => 0
Argument "c" isn't numeric in array element at ccm.pl line 24, <> line 1.
q = 0 - mot = c - 0 => 0
q = 1 - mot = a - 1 => 1
q = 1 - mot = b - 2 => 2
q = 1 - mot = c - 0 => 0
q = 2 - mot = a - 3 => 3
q = 2 - mot = b - 0 => 0
q = 2 - mot = c - 0 => 0
q = 3 - mot = a - 1 => 1
q = 3 - mot = b - 4 => 4
q = 3 - mot = c - 0 => 0
q = 4 - mot = a - 5 => 5
q = 4 - mot = b - 0 => 0
q = 4 - mot = c - 0 => 0
q = 5 - mot = a - 1 => 1
q = 5 - mot = b - 4 => 4
q = 5 - mot = c - 6 => 6
q = 6 - mot = a - 7 => 7
q = 6 - mot = b - 0 => 0
q = 6 - mot = c - 0 => 0
q = 7 - mot = a - 1 => 1
q = 7 - mot = b - 2 => 2
q = 7 - mot = c - 0 => 0

lami20j@debian:~/trash$ sed '24!d' ccm.pl
      $delta[$q][$mot]=$k;

Je te remercie pour tes infos mais comment doit-on faire pour réaliser ce tableau afin de le réutiliser?

Si tu as une idée....

en te remerciant,
cordialement

Salut,

je veux bien t'aider mais je n'ai pas compris ce que tu veux faire.
si tu arrives à me faire comprendre ce que tu veux, je vais pouvoir t'aider.
lami20j

Je veux bien t'expliquer mais il s'agit d'un cours de modélisation du langage!
Je vais te montrer sur un exemple en fait: si tu prend le motif 'ababaca'
la fonction doit te retourner le tableau a 2 dimension que j'ai mis dans un post plus haut. Pour ce mot, l'alphabet est compsé de 'a', de 'b' et de 'c' donc il nous faut 3 colonnes. De plus le mot a une longueur de 7 donc il faut 8 lignes (q va de 0 à m)
pour le premier état, je regarde 'a' (première lettre de mon motif) avec chaque lettre de mon alphabet et je met 1 dans le tableau quand c'est égal d'où la première ligne
1 0 0
donc si tu as un 'a' à l'état 0, tu passe à l'état 1
tu as donc ton 'a' et tu regarde si en concaténant avec chaque lettre de l'alphabet tu obtiens le début du mot

ex:
'aa' <> de 'ab' donc on met 1 car on retombe à l'état 1 où on avait un a
'ab'='ab' donc on met 2 car on peut passer à l'état 2
'ac'<>'ab' donc on met 0 car 'c'<>'a' (notre première lettre du mot)

Je pense pas que tu comprenne grand chose étant donné que c'est difficile à expliquer par écrit! en fait tu as deux fenêtre de lecture, une se déplace vers la gauche et l'autre vers la droite en se réduisant jusqu'à trouver l'égalité!

la ligne 1 4 6 pour l'état 5 signifie que l'on a 'ababa' si on met un 'c', on passe à la 6, si on met un 'a' on revient à l'état 1 car on a 'aa' que l'on ne retrouve nulle part dans le mot. En revanche, si on met un 'b', on a 'ababab' , or on retrouve 'abab' a l'état 4, on met donc 4.


Je pense pas que tu comprenne tout mais je veux juste comprendre comment sortir un tel tableau 2D!!

Salut,

Ne soit pas préoccupé si je comprends ou pas.
Concentre toi sur les explications, ne t'inquiètes pas pour moi.

Voici la 1er partie avec le résultat (en gras tu as les lignes qui créent ton tableau @delta)

lami20j@debian:~$ cat automate.pl
#!/usr/bin/perl
print "Veuillez entrer un motif \n";
$motif=<>;
chomp($motif);
$m=length($motif);

sub Calcul_Fonction_Transition {
  $n= $_[0];
  @sigma=('a','b','c');
  $m=length($n);
  for ($q=0 ; $q <= $m ; $q++) {
    foreach $mot (@sigma) {
      if ($m+1 < $q+2 ) {
        $e1 = $k=$m+1;
      }else {
        $e2 = $k=$q+2;
      }
      do {
          $k=$k-1;
          $pk=substr($n,0,$q).$mot;
          $lpk=length($pk);
      } until ((substr($n,0,$k))eq(substr($pk,$lpk-$k,$k)) or ($k==0)) ;
      push @{$delta[$q]},$k;
    }
    unshift @{$delta[$q]},$q;
  }
  return @delta;
}

@delt = Calcul_Fonction_Transition ($motif);
print "voici le tableau\n";
for (@delt) {
        print "@{$_}\n";
}
lami20j@debian:~$ perl automate.pl
Veuillez entrer un motif
ababaca
voici le tableau
0 1 0 0
1 1 2 0
2 3 0 0
3 1 4 0
4 5 0 0
5 1 4 6
6 7 0 0
7 1 2 0

Oula tu m'impressionnes!!voila c'est ce que je cherchais pour le début, comment créer un tableau double entré!en fait tu dis qu'une ligne du tableau est une liste et tu ajoute soit à la fin soit au début!fallait y penser, merci!

je t'expliques la suite! allez chaud!
alors en fait je dois créer une fonction qui prend en paramètre un texte quelconque, la longueur du motif précédent et le tableau précédent. Le but de la fonction est de trouver si le motif est présent dans le texte passé en paramètre et pour cela on se sert du tableau retourné par la fonction 1. Si on le trouve, on indique via un print le décalage par rapport au début du texte:
pti exemple ('salut ababaca' => la fonction doit me dire le motif apparait avec le décalage 6)

Pour cela, on fait une boucle de q=0 à n (longueur du texte)
on regarde si la valeur de delt[q][q ième lettre du texte] (tableau sorti de la fonction 1 et assé en paramètre) est égale à la longueur du motif:
si oui alors on a le motif et sinon on n'a pas le motif
le décalage s'obtient en faisant q-m

voila celle la est plus simple à comprendre mais il faut juste passer le tableau en paramètre.

En te remerciant encore, tu m'aides bcp

Tu as compris mon problème? parce que j'ai essayé ce que tu m'as dit, ça marche nikel mais comment je fais pour retrouver dan sle tableau la ligne 2 pour la lettre a par exemple quand je parcours mon texte??

si tu as une idée...

Salut,

disons que j'ai compris ce que tu veux faire, en revanche je n'ai pas compris ta façon de le faire.

1. en fait ce n'est pas le tableau qui est difficile d'obtenir, ça c'est un jeu d'enfant, c'est son utilisation qui pose des problèmes
2. la deuxième fonction je la trouve incomplète
Tu dois chercher un motif, je pense qu'il faut passer le motif à la fonction sinon je ne vois pas comment tu peux faire la comparaison

A savoir que le tableau généré par la 1ère fonction ne contient que des chiffres, donc je ne vois pas comment tu te prends pour chercher dans le texte.

La question que je me pose, si tu veux chercher un motif pourquoi n'utilise tu l'assertion \G des regex et la fonction pos qui peut te retourner la position?
Ou tu veux réinventer la roue?! Si oui alors il faut peut être penser à ton algo et ensuite on verra ce qu'on peut faire.

Pour obtenir tes combinaison dans les états regarde ça

#!/usr/bin/perl
print "Veuillez entrer un motif \n";
$motif=<>;
chomp($motif);
$m=length($motif);

sub Calcul_Fonction_Transition {
  $n= $_[0];
  @sigma=('a','b','c');
  $m=length($n);
  for ($q=0 ; $q <= $m ; $q++) {
    foreach $mot (@sigma) {
      if ($m+1 < $q+2 ) {
        $e1 = $k=$m+1;
      }else {
        $e2 = $k=$q+2;
      }
      do {
          $k=$k-1;
          $pk=substr($n,0,$q) . $mot;
      } until ((substr($n,0,$k))eq(substr($pk,$lpk-$k,$k)) or ($k==0)) ;
      push @{$delta[$q]},$k,$pk;
    }
    unshift @{$delta[$q]},$q;
  }
  return @delta;
}

@delt = Calcul_Fonction_Transition ($motif);
print "voici le tableau\n";
for (@delt) {
        print "@{$_}\n";
}

lami20j@debian:~$ perl automate.pl
Veuillez entrer un motif
ababaca
voici le tableau
0 1 a 0 b 0 c
1 1 aa 2 ab 0 ac
2 3 aba 0 abb 0 abc
3 1 abaa 4 abab 0 abac
4 5 ababa 0 ababb 0 ababc
5 1 ababaa 4 ababab 6 ababac
6 7 ababaca 0 ababacb 0 ababacc
7 1 ababacaa 2 ababacab 0 ababacac

Re!
en fait je ne cherche pas à réinventer la roue comme tu dis mais c'est un exercice demander en modélisation du langage (et oui je suis à la fac!) donc le but est d'utiliser l'algo de Recherche_Automate_Fini. Avec le tableau créé par la fonction 1, on peu le trouver sans passer le motif en paramètre si tu regarde bien:

on parcours les lettre une par une de notre texte dans l'ordre et q prend la valeur du tableau en 0 (le premier coup) pour la première lettre (q=delta[0][première lettre]), ensuite au deuxième tour, q prend la valeur du tableau a létat q (défini a l'état 1) pour la deuxième lettre du texte (q=delta[q][deuxième lettre])(c'est la l'intéret d'un tableau double entrée) et ainsi de suite donc si on rencontre notre motif dans le texte, q va prendre successivement les valeur 0,1, 2, 3 ,4, 5, 6, 7 pour q=7, la condition est vérifiée: on a trouvé notre motif avec le décalage $i-$m

j'espè-re que tu as compris le truc sinon essaie avec ababaca en motif et salut ababaca en texte parce que je n'ai plus le net ce soir!

mais j'espère que tu pourras m'aider!

q=delta[0][première lettre])

tu ne veux toujours pas comprendre que ça c'est une abération

première lettre tu le mets en tant qu'indice dans un tableau ?????????,,
je te rappelle qu'on peut écrire tab[0][1] mais pas tab[0][a]
lami20j

Je te conseil de regardé ici automate fini en C et d'adapter en Perl.
Le code est complet.
lami20j

J'ai bien compris que sa ne marchais pas mais alors dans ce cas, il ne faut pas utiliser 2 fonction car dans le lien que tu ma donné, il mette bien une lettre comme indice dans le tableau....mais ne le retourne pas, ils font tout dans la même fonction.

Encore merci pour ton aide