Discussion :

[rteuteu55]

voila ma question est simple, j'ai compris que le code suivant recherche une url précise dans une page, mais je ne comprends pas comment ça marche.

A quoi correspond
'if(/> APPLI2 </){'
'if(/(http.*CODLOOK=0)/){'

que contiens $1 exactement?

Code :

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

1
2
3
4
5
6
7
8
9
10
@oc=split('\n',$ResultaRequete);
foreach(@oc){
	if(/> APPLI2 </){
		if(/(http.*CODLOOK=0)/){
			print $1;
			$httpurl=$1;
			last;
		}
	}
}

voila je vous pose cette question car j'ai besoin de faire le même type de recherche mais je n'arrive pas à adapter ce code pour ma page html?!

voila tout.
Merci d'avance.

[Arioch]

Pour expliquer le code :

Code :

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

1
2
3
@oc=split('\n',$ResultaRequete);
foreach(@oc){
	if(/> APPLI2 </){

Pour chaque élément se trouvant dans @oc, si l'élément contient la chaîne > APPLI2 <, alors on rentre dans le if suivant qui est

Code :

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

1
2
3
4
5
6
7
		if(/(http.*CODLOOK=0)/){
			print $1;
			$httpurl=$1;
			last;
		}
	}
}

Si ce même élément contient la chaîne http suivie de 0, 1 ou plusieurs caractères (.*) suivie de la chaîne CODLOOK=0... Note l'emplacement des parenthèses. Grâce à elles, Perl va mémoriser dans une variable temporaire la chaîne encapsulée par les ( ) et stocker le contenu dans la variable $1.

Ici, et si la condition des deux if est vraie, $1 pourrait très bien contenir http://www.developpez.net/CODLOOK=0

[rteuteu55]

un grand merci pour cette réponce qui m'a bien aidé!