explication de foreach

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:

---

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.

Pour expliquer le code :

Code:

---

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:

---

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

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