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 !