Discussion :

[goblin]

J'ai récupéré un algo de parcour de graphe sur le forum j'essaie en vain de l'adapter pour la meme utilisation que son auteur , sauf que cette fois moi j'utilise des tableaux et non un scalaire

voici mon algo qui marche pas , perl ne produit pas d'erreur(s) mais il ne ce passe rien le script s'arrete c'est tout

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
{
 
 my %ursl;
 
sub sniffer {
 foreach (@_) {
     my @list = grep( { (existance($_) == 1) } @_);
     next if @list = grep( { defined ($urls{$_}) } @list);
     push(@visite, @list);
 }
  return if $#visite == -1;
 
   while (my @site = @visite) {
 
   ++$urls{@site};

Et celui d'origine

Code :

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

1
2
3
4
5
6
7
8
9
10
foreach my $url ( @_ )
 {
   next if defined $vus{$url};
   push(@avoir, $url);
 }
  return if $#avoir == -1;
 
 while (my $link = shift @avoir) {
 
  ++$vus{$link};

Merci !

[goblin]

Bon j'ai testé l'approche suivante mais elle ne donne rien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
foreach (@_) {
 next if grep( { ( defined $urls{$_} ) } @_);
 push(@sites, @_);
}
 return if $#site == -1;
 
 while( my @site = @sites ) {
 
  ++@urls{@site};
 
  ...
}

HELP !!!!!!!