Création de liens automatiques

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

Je développe actuellement un module perl qui remplace des mots automatiquement dans le texte d'une page web par des liens.

Les mots à remplacer sont stockés dans un fichier texte avec le lien, la cible d'ouverture (_self ou _blank) et la description correspondante.

Mon problème vient de la fonction chargée de ramplacer les mots (plus précisément de l'expression régulière d'après moi...).

Voici la fonction :
Code:

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 sub autoLinks{ # fonction remplacant les mots contenus dans $text pour lesquels des liens automatiques sont prévus # on récupère les paramètres my ($text,$id) = @_; # on récupère le fichier my ($strLinks) = &importerFichier('./autoLink07/data/'.$id.'.autolink.dat'); my (@links) = split(/<<>>/, $strLinks); # on le parcours et on compare chaque info à celle passée en paramètre my ($strLink) = ''; foreach $strLink (@links){ my (@autoLink) = split(/<>/, $strLink); # pour chaque mot à remplacer, on le remplacer dans le fichier #'.$autoLink[2].' $url = '<a class="autolink" href="http://'.$autoLink[1].'" target="'.$autoLink[3].'">'.$autoLink[0].'</a>'; $mot = $autoLink[0]; #$mot = quotemeta($mot); #$url = quotemeta($url); $text =~ s/$mot/$url/gei ; } # on envoi le résultat return $text; }
Aucun remplacement n'est affectué (les mots sont bien chargés et on rentre bien dans la boucle foreach).

Merci de votra aide ... :roll:

09/08/2007, 11h18
djibril

il y a surement un souci avec les // de l'url.
essaye ça :

Code:

$text =~ s{$mot}{$url}mgsxi;
09/08/2007, 11h22
Munkey74

J'ai remplacé la ligne avec l'expression régulère que tu ma donné mais rien ne change, aucun mot n'est remplacé :bug:

Il y a un truc bizare :

Quand je met l'expression régulière $text =~ s/$mot/$url/g , aucun mot n'est remplacé et quand je met cette expression $text =~ s/$mot/$url/ , la première occurence du mot est remplacée correctement... :?

bon avant d'attendre un remplacement, on va faire des tests.
Code:

1 2 3 4 5 #$mot = quotemeta($mot); #$url = quotemeta($url); print "mot : $mot\n"; #=====> print $mot print "url : $url\n"; #=====> print $mot $text =~ s/$mot/$url/gei ;
est ce qu'il y a un mot et une url de printé?

09/08/2007, 11h30
Munkey74

Oui biensur les mots et les url sont bien affichées :P

C'est la première chose que j'ai vérifié avant de poster sur le forum... J'évite les sujets inutiles :mouarf:
09/08/2007, 11h31
djibril

Citation:

Envoyé par Munkey74

Oui biensur les mots et les url sont bien affichées :P

C'est la première chose que j'ai vérifié avant de poster sur le forum... J'évite les sujets inutiles :mouarf:

c'est bien :mouarf: .
peux tu donner 2 exemples (2 mots et 2 url) pour que je puisse faire des tests de mon coté
09/08/2007, 11h33
Munkey74

Euuu... tu veux la source complete?
09/08/2007, 11h38
djibril

non, je veux juste que tu me donnes 2 mots et les deux url qui les remplaceront.
Je pourrais ainsi faire les regex pour tester et voir ce qui ne va pas
09/08/2007, 11h47
Munkey74

J'ai fais une petite page de test avec les mots et liens à remplacer (la liste est créée à partir du contenu du fichier)

http://www.clicleman.com/cgi-bin/testremplace.pl
09/08/2007, 12h00
djibril

je voudrais un exemple par rapport à ton script vu que je ne l'ai pas en entier.

Code:

$url = '<a class="autolink" href="http://'.$autoLink[1].'" target="'.$autoLink[3].'">'.$autoLink[0].'</a>';

A quoi correspond $autoLink[0à3]?
09/08/2007, 14h00
Munkey74

$autolink est un tableau contenant les mots à remplacer, les liens, description et target correspondant

Voila leurs significations :

$autolink[0] => mot à remplacer (par exemple "clic")
$autolink[1] => adresse du lien (par exemple "www.clicandgo.com")
$autolink[2] => description du lien (par exemple "Agence de création de sites internet")
$autolink[3] => target du lien (par exemple "_blank")

Voila...

bah ecoute j'ai ceci :
Code:

1 2 3 4 5 my $url = '<a class="autolink" href="http://www.clicandgo.com" target="Agence de création de sites internet">clic</a>'; my $mot = "clic"; my $text = "Clic remplacer les liens automatiquement, encore clic"; $text =~ s{$mot}{$url}mgsxi; print "$text\n";
qui donne :

Citation:

<a class="autolink" href="http://www.clicandgo.com" target="Agence de création de sites internet">clic</a> remplacer les liens automatiquement, encore <a class="autolink" href="http://www.clicandgo.com" target="Agence de création de sites internet">clic</a>

Donc pas de souci pour moi.
Et tu sur de ce qu'il y a dans ton $text ??

Alors maintenant sa marche :

Code:

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
sub autoLinks{
  # fonction remplacant les mots contenus dans $text pour lesquels des liens automatiques sont prévus
 
  # on récupère les paramètres  
  my ($text,$id) = @_;	 
 
  # on récupère le fichier
  my ($strLinks) = &importerFichier('./autoLink07/data/'.$id.'.autolink.dat');
  my (@links) = split(/<<>>/, $strLinks);  
 
  # on le parcours et on compare chaque info à celle passée en paramètre  
  my ($strLink) = '';		
  foreach $strLink (@links){	
    my (@autoLink) = split(/<>/, $strLink); 
	# pour chaque mot à remplacer, on le remplacer dans le fichier	
 
	if ($autoLink[0] eq ''){
	  next;
	}
 
	$url = '<a class="autolink" href="http://'.$autoLink[1].'" target="'.$autoLink[3].'">'.$autoLink[0].'</a>';
	$mot = ' '.$autoLink[0];
 
    $text =~ s{$mot}{$url}mgsxi;
  }	  
 
  # on envoi le résultat 
  return $text;
}

Le seul truc bizare c'est que j'ai du faire $mot = ' '.$autoLink[0]; .
Sans ça il ne trouve pas le mot 8O

Maintenant j'ai un autre problème :
Cette fonction remplace les mots seuls comme ' clic ' mais remplace également clic dans le mot 'www.clicandgo.com'. :?

09/08/2007, 15h21
djibril

Citation:

Envoyé par Munkey74

Alors maintenant sa marche :
Le seul truc bizare c'est que j'ai du faire $mot = ' '.$autoLink[0]; .
Sans ça il ne trouve pas le mot 8O

Par ce que tes mots on surement un espace en debut, et c pour cela qu'il ne les trouvait pas avant.

Citation:

Envoyé par Munkey74

Maintenant j'ai un autre problème :
Cette fonction remplace les mots seuls comme ' clic ' mais remplace également clic dans le mot 'www.clicandgo.com'. :?

car on a mis l'otpion g dans la regex => toutes les occurences dans la phrase
09/08/2007, 15h26
Munkey74

Oups, j'avais pas fait gaffe à la regex, je débute avec les expressions régulières. Mais je pense m'être mal exprimé : je veux par exemple que le mot clic soit remplacé toutes les fois ou il se trouve dans une texte, sauf quand il se trouve à l'intérieur d'un autre mot (par exemple www.clicandgo.com)...

Alors maintenant plus dur :D

Les liens générés ont à l'intérieur une balise :

Citation:

<a href="lelien" target="blank">clicAgence de création de sites internet</a>

Quand je remplace les mots par les liens, j'ai le problème suivant : Les mots contenus dans les spans sont eux aussi transformé en liens automatique ...
09/08/2007, 15h48
djibril

bon si ce n'est pas long, peut tu mettre tout ton script et le fichier de mot, car je suis obligé de deviner et ça reste abstrait.

J'ai trouvé une solution (un peu barbare certe mais qui marche) :

Code:

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
sub autoLinks{
  # fonction remplacant les mots contenus dans $text pour lesquels des liens automatiques sont prévus
 
  # on récupère les paramètres  
  my ($text,$id) = @_;	 
 
  # on récupère le fichier
  my ($strLinks) = &importerFichier('./autoLink07/data/'.$id.'.autolink.dat');
  my (@links) = split(/<<>>/, $strLinks);  
 
  my ($strLink) = '';
 
  foreach $strLink (@links){	
    my (@autoLink) = split(/<>/, $strLink); 
	# pour chaque mot à remplacer, on le remplacer dans le fichier	
 
	if ($autoLink[0] eq ''){
	  next;
	}
 
	$url = '&nbsp;<a class="autolink" href="http://'.$autoLink[1].'" target="'.$autoLink[3].'">'.$autoLink[0].'</a>&nbsp;';
	$mot = $autoLink[0];
 
    $text =~ s{\s$mot\s}{$url}mgsxi;
  }	  
 
  foreach $strLink (@links){	
    my (@autoLink) = split(/<>/, $strLink); 
	 #pour chaque mot à remplacer, on le remplacer dans le fichier	
 
	if ($autoLink[0] eq ''){
	  next;
	}
 
	$span = '>'.$autoLink[0].'<span>'.$autoLink[2].'</span><';
	$mot = '>'.$autoLink[0].'<';
 
    $text =~ s{$mot}{$span}mgsxi;
  }	  
 
  # on envoi le résultat 
  return $text;
}

Il subsiste un dernier problème : Les groupes de mots

Les groupes de mots ne sont pas remplacés et je ne vois pas pourquoi ... :(

09/08/2007, 16h12
Munkey74

Merci de ton aide djibril, il ne me reste qu'un seul problème, c'est les groupes de mots ...
09/08/2007, 16h21
djibril

qu'entends tu par groupe de mots?
09/08/2007, 16h28
Munkey74

Ben par exemple j'aimerai pouvoir remplacer les mots "club de football" par :

Citation:

<a href="http://www.fff.fr" target="_blank">club de footballSite de la Fédération Française de Football</a>

Voir 40 message(s) de cette discussion en une page