Discussion :

[piotr]

Bonjour,

J'ai une ligne d'un fichier texte qui ressemble à ceci:
<h2>dossiers</h2><ul><li><a href="/dossier/do0045569/">text 1</a></li><li><a href="/dossier/do0103598/">text 2</a></li><li><a href="/dossier/do0103421/">text 3</a></li></ul><h2>Findossiers

J'ai écris la ligne de code suivante:

Code :

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

1
2
3
4
5
 
if ($ligne2 =~ m#dossiers(.*)Findossiers#)
{
@extract = split(m#">[^\>]*</a#, $1);
}

Malheureusement @extract contient justement toutes les données qui ne m'intéressent pas, j'aurais voulu récupérer toutes les données comprises entre "> et </a, ces symboles me permettent d'indentifier à coup sur les données recherchées.

qui sait comment récupérer cela? est-ce que split stocke quelquechose et comment le récupérer?

Merci à tous

[Jasmine80]

Pour une ligne

Code :

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

my @liste = ($string =~ m'>([^>]*?)</a'g);

//g permet une recheche globale et récupère donc une liste de motifs trouvés.
Afin que le dossier soit considéré comme une seule ligne, tu peux ajouter //msx
http://perl.developpez.com/faq/?page...B72#sectionB74

[Jasmine80]

Si le fichier est trop gros il vaut peut-être mieux le lire ligne par ligne

Code :

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

1
2
3
4
5
6
7
8
9
my $file = 'chemin';
open(FILE, $file) or die $.;
 
my @list;
while (<FILE>){
	push (@list ,  m'>([^>]*?)</a'g);
}
 
close(FILE);

[piotr]

Merci ça marche très bien!