Discussion :

[ruben]

Salut a tous, je suis en train de debuter en PERL. Mais je bloque vraiment sur les expressions regulières.
je suis en train de construire un script qui va chercher un document HTML, doit transformer tout le code en une seule ligne, et apres rechercher tout ce qui est tag de fichiers externes (jpg, gif, png, swf etc...), et les metres dans un Array.

Bon, en fait je bloque car je sais pas comment faire le matching extact de tout ce type de fichiers, puis metre le resultat dans un Array...

Si quelqu'un pourait me metre sur la piste, ça serait vraiment simpas...
Merci d'avance

// Ruben

[GLDavid]

Hello

Puisque tu débutes en Perl, je te conseille de regarder la FAQ Perl et mes cours. Les questions de regexps y sont abordées grâce à l'excellent Djibil et le magnifique 2Eurocents aborde tout sur les arrays.

@++

[ruben]

GLDavid, Merci d'avoir repondu. Je tient tout d'abord a te feliciter et aux autres redacteurs pour les cours et l'excelente FAQ... Vraiment de très bonne qualité
J'ai reussi a progresser un peu plus, mais je comprens pas pourquoi je n'arrive pas a recuperer les valeurs dans mon Array....

Code :

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

1
2
3
4
5
6
 
	my @match=();
 	while ($fichier =~ /img/g) {
		@match[$a]=$1;	
		$a++;
	}

ps: $fichier correspond a la String de mon fichier HTML

Apres debug du script, voila ce que j'obtiens:

Code :

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

1
2
3
4
5
6
7
 
match[0]=
match[1]=
match[2]=
match[3]=
 
a=4

Qu'es ce qui ne va pas ?

[GLDavid]

Hello

Donc, tu veux récupérer les images d'une page HTML ? Il faut dans ce cas mieux réfléchir à ta regexp.
Néanmoins, pour parser un fichier HTML, tu peux avoir recours à ce module qui fera le gros du travail pour toi : HTML:arser.

@++

[ruben]

Oula... Ça a l'air balaise... Mais bon, je vais essayer

Merci David pour ton aide. C'est simpas de m'avoir filer un coup de main.

(Au fait, la sintaxe que j'ai ecrite est bien ecrite ?)

[2Eurocents]

Code :

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

1
2
3
4
5
6
 
	my @match=();
 	while ($fichier =~ /img/g) {
		@match[$a]=$1;	
		$a++;
	}

Qu'es ce qui ne va pas ?

Plusieurs petits détails

$1 ne mémorise pas ton motif si tu ne le lui mets pas entre parenthèses dans l'expression rationnelle.

Par contre, il est évident qu'un match sur /(img)/ ne retournerait qu'une suite de "img" qui n'aurait aucun intérêt !

Un match sur /img.*?src="(.*?)"/ serait plus pertinent. De plus, une attention particulière à la casse serait bénéfique : rendre le match insensible avec une option i en plus de l'option g.

Sinon, Perl offre un raccourci pratique pour récupérer tous les matches d'un coup :

Code :

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

@matches = ($variable =~ m/motif/g);

Sachant, en outre que @matches, évalué en contexte scalaire nous fournit le nombre d'éléments du tableau


Bon courage pour la suite, mais il est parfois pratique d'utiliser des modules spécifiques pour la manipulation "propre" des flux HTML

Et merci au dithyrambique GLDavid pour le gros passage de brosse à reluire

[ruben]

Merci 2Eurocents, impecable! Ça Marche comme je le souhaite

Je suis en train de lire HTML:arser, j'hesite entre les regEX et ce mod.

En tout cas, je pense pouvoir bientot pouvoir dire: "RESOLU"...
Voici le code final (encore un peu vert, mais je vais encore le travailler...)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
sub MatchingFiles($path){
	$fichier="";
	open(FILE,"$path") || die "Impossible d'ouvrir le fichier\n";	
	while (<FILE>){
		$fichier=$_;
	}
	close FILE;
	my @match=();
	@match=($fichier=~/img.*?src="(.*?)"/g);
 
	$k=0;
	foreach $val (@match){
		print $k."» ".$val ."\n";
		$k++;
	}
}

Merci a tous

// Ruben

[GLDavid]

Et merci au dithyrambique GLDavid pour le gros passage de brosse à reluire

Ben quoi ??? Y a pas de mal à dire la vérité !!


@++