Discussion :

[bluecurve]

J'ai trouv un algo sur ce forumn il sert a trouver pour un mot la chaine de caractères ou il est le plus de fois présent :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
#!/usr/bin/perl -w 
use strict; 
use diagnostics;
 
########################FONCTION######################## 
 
sub function{ 
   #Le tableau solutions contiendra comme première valeur 
   #la valeur maximale de nos tables de hachages 
   #et comme 2ème valeur l'index de notre tableau passé en argument 
   #contenant les références de nos tables et qui pointera sur la table ayant 
   #la plus grande valeur 
   my @solutions; 
        $solutions[0] = 0; 
 
        #On cherche quel est la plus grande valeur contenue 
        #dans nos tables de hachages 
   for(my $i=0; $i<scalar(@_); $i++){ 
      my %hash = %{$_[$i]}; 
      my @tablo = @{$hash{"m"}}; 
      my $value = $tablo[0]; 
      if($value>$solutions[0]){ 
         $solutions[0] = $value; 
         $solutions[1] = $i; 
      } 
   } 
 
   return @solutions; 
} 
 
######################MAIN#################### 
 
#########VARIABLES À DÉCLARER############ 
 
my %i = ( 
 
     m => [ "7", "http://www.developpez.com" ] 
 
); 
 
 
 
my %t = ( 
 
     m => [ "5", "http://gldavid.developpez.com" ] 
 
); 
 
 
my %u = ( 
 
     m => [ "3", "http://www.google.com" ] 
 
); 
 
my @tab = (); 
 
#Pour se simplifier la vie, on va ranger nos tables de hachages 
#dans une liste. On stocke les références de nos tables. 
 
my$i = \%i; 
my$t = \%t; 
my$u = \%u; 
 
push(@tab, $i); 
push(@tab, $t); 
push(@tab, $u); 
 
#Et on lance notre fonction de recherche. 
#Celle-ci renvoit un tableau. 
 
my @sol = function(@tab); 
 
#Affichage de la solution 
my %hash = %{$tab[$sol[1]]}; 
my @tablo = @{$hash{"m"}}; 
my $link = $tablo[1]; 
print "Le lien à garder est $link.\n";

Pour utiliser l'algo il faut passer pas des tables de hachages des références et un tableau . Je ne peut pas l'utiliser de cette façon du coup j'essaie depuis un bon moment de le modifier.

j'ai un tableau @Strings qui contient des chaines des caractères , et $var = 'maison'; disont.

Je cherche comment modifier l'algo précédent pour ne pas avoir a passer par des hash , puis références et enfin un tableau. J'ai testé divers solutions mais a base de référence anonyme etc... bref rien de très propre j'avoue ne plus avoir d'idées.

merci a vous

[mobscene]

J'ai trouv un algo sur ce forumn il sert a trouver pour un mot la chaine de caractères ou il est le plus de fois présent :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
#!/usr/bin/perl -w 
use strict; 
use diagnostics;
 
########################FONCTION######################## 
 
sub function{ 
   #Le tableau solutions contiendra comme première valeur 
   #la valeur maximale de nos tables de hachages 
   #et comme 2ème valeur l'index de notre tableau passé en argument 
   #contenant les références de nos tables et qui pointera sur la table ayant 
   #la plus grande valeur 
   my @solutions; 
        $solutions[0] = 0; 
 
        #On cherche quel est la plus grande valeur contenue 
        #dans nos tables de hachages 
   for(my $i=0; $i<scalar(@_); $i++){ 
      my %hash = %{$_[$i]}; 
      my @tablo = @{$hash{"m"}}; 
      my $value = $tablo[0]; 
      if($value>$solutions[0]){ 
         $solutions[0] = $value; 
         $solutions[1] = $i; 
      } 
   } 
 
   return @solutions; 
} 
 
######################MAIN#################### 
 
#########VARIABLES À DÉCLARER############ 
 
my %i = ( 
 
     m => [ "7", "http://www.developpez.com" ] 
 
); 
 
 
 
my %t = ( 
 
     m => [ "5", "http://gldavid.developpez.com" ] 
 
); 
 
 
my %u = ( 
 
     m => [ "3", "http://www.google.com" ] 
 
); 
 
my @tab = (); 
 
#Pour se simplifier la vie, on va ranger nos tables de hachages 
#dans une liste. On stocke les références de nos tables. 
 
my$i = \%i; 
my$t = \%t; 
my$u = \%u; 
 
push(@tab, $i); 
push(@tab, $t); 
push(@tab, $u); 
 
#Et on lance notre fonction de recherche. 
#Celle-ci renvoit un tableau. 
 
my @sol = function(@tab); 
 
#Affichage de la solution 
my %hash = %{$tab[$sol[1]]}; 
my @tablo = @{$hash{"m"}}; 
my $link = $tablo[1]; 
print "Le lien à garder est $link.\n";

Pour utiliser l'algo il faut passer pas des tables de hachages des références et un tableau . Je ne peut pas l'utiliser de cette façon du coup j'essaie depuis un bon moment de le modifier.

j'ai un tableau @Strings qui contient des chaines des caractères , et $var = 'maison'; disont.

Je cherche comment modifier l'algo précédent pour ne pas avoir a passer par des hash , puis références et enfin un tableau. J'ai testé divers solutions mais a base de référence anonyme etc... bref rien de très propre j'avoue ne plus avoir d'idées.

merci a vous

Je pense pas que tu est un autre choix que d'utiliser la méthode normal de l'ago, mais c'est vrais que passer par des hash, puis des références puis un tableau c'est un peu lourd. J'ai pas trop d'idée pour ton algo mais la technique utilisé est très bonne quoi que les préliminaires soit lourde

[mobscene]

Changer la façon dont est appelé ton algo revient a encoder un nouveau en gros. l'utilisation de l'algo actuel est pourtant simple

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
#!/usr/bin/perl -w
use strict;
use diagnostics;
 
sub _trie_function ($)
{ 
   my $data = shift;
   my @solutions; 
      $solutions[0] = 0; 
 
   for(my $i=0; $i<scalar(@$data); $i++){ 
      my %hash = %{$data->[$i]}; 
      my @tablo = @{$hash{'m'}}; 
      my $value = $tablo[0]; 
      if($value>$solutions[0]){ 
         $solutions[0] = $value; 
         $solutions[1] = $i; 
      } 
   } 
   return @solutions; 
}
 
 
sub _set_segment ($)
{
  my $tab  = shift;
  my @sol = _trie_function($tab); 
  my %hash = %{$tab->[$sol[1]]}; 
  my @tablo = @{$hash{'m'}}; 
  my $segment = $tablo[1]; 
  print "The segment is $segment\n"; 
  #return $segment;
}
 
 
my @string = ();
push(@string, 'maison poisson coucou maison maison');
push(@string, 'titi vas a la maison');
push(@string, 'bobo maison maison');
push(@string, 'ddddddddddd');
 
 
 
teste();
 
sub teste
{
  my @var = qw/maison/;
  my @p = ();
  foreach my $line ( @string )
  {
      my $t = { 'm' => [0,''] };
    foreach my $vars ( @var )
    {
      while ( $line =~ /\b$vars\b/gci )
      {
         $t->{'m'}[0]++;
      }
      $t->{'m'}[1] = $line;
    }
    push(@p, $t);
  }
 
  use Data::Dumper;
  print Dumper(\@p);
   _set_segment(\@p);
}