Parcour de grpah en perl

Bonjour , j'ai récupéré un algo de parcour de graphe en perl , celui si marche bien mais utilise un scalaire hors moi je doit utiliser un tableau , j'ai fait énormement d'essaie tous soldés par des echecs , n'etant pas très fort en algo (sa arrange pas :? ), je vous demandent un ti coup de main parce que vraiment je galère et j'ai absolument besoin de cet algo pour que mon script fonde pas un bétrave (il ce bloque et tourne en rond).


voici le code original en perl

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

sub bot { foreach my $url ( @_ ) { next if defined $vus{$url}; push(@avoir, $url); } return if $#avoir == -1;   while (my $link = shift @avoir) {   ++$vus{$link};   ..... }   }

---

Mon dernier essaie en date (On ce moque pas) :twisted:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

sub bot { foreach (@_) { my @list = grep( { (existance($_) == 0) } @_); push(@visite, @list); } return if $#visite == -1;   while (my @site = @visite) {   store(@site);   ?????? ....   }   }

---

Ma fonction existance dans le grep vérifie si $_ na pas déjà été traité par le script , c'est une fonction sql je met tout ce qui passe dans sql server comme sa je vérifie si oui ou non $_ a déjà été traité.

store() met le contenue de @site dans la base de données.

merci de votre aide

As tu essayé de poser ta question sur le forum PERL ?

XXiemeciel

Il l'a posé, mais cette question révèle un manque de réflexion sur le langage qui n'attire pas (à mon sens) les réponses...
En effet, on voit dans ce court extrait que goblin s'est lancé dans l'adaptation à l'aveuglette d'un morceau de code, sans savoir comment se comportent les structures de données de base en Perl : il ne s'est visiblement pas penché sur les excellents tutoriaux à ce sujet disponibles dans la documentation officielle.

Le problème vient de ce qu'il n'utilise pas ici de tableau de tableau, mais une simple liste toute plate, dont il s'attend à ce qu'elle lui restitue une structure qu'il ne lui a pas donné. Je lui conseillerais donc un simple coup d'oeil à perldsc ou perllol par exemple ("perldoc perldsc", quand tu recherche ce genre d'information, mieux vaux commencer par "perldoc perl", puis "perldoc perltoc", puis "perldoc -q MaQuestion").

--
Jedaï

Ok,

parce que moi personnellement le PERL je connais que de nom .

:lefou:

XXiemeciel

C'est une faute grave, qu'attend tu pour t'y mettre !! :roll:

--
Jedaï

je sais pas , surement d'avoir une raison ... j'ai deja bien assez du C++/java/python a mon travail pour faire en plus de l'informatique en rentrant chez moi

l'informatique moi c'est comme les medicaments, un truc a pas trop dépasser la dose.

:arf: :mouarf3:

XXiemeciel