Perl

Perl: expression reguliere

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Perl: expression reguliere

suomi

Bonjour

J'aimerai recuperé dans un fichier qui est en fait du code html une seaunce de texte comprise uniquement entre les balises <PRE> et </PRE>.
Cette zone de texte peut s'etendre d'une a plusieurs lignes, et les balises peuvent commencer en debut de ligne ou apres des caractères.

Voila se que j'ai fait comme expression valable uniquement si les balises sont sur une seule ligne:

Code :

=~ /.*<PRE>(.*)<\PRE>.*/

comment faire??? merci pour votre aide... :hello:

Publicité

matafan

/<pre>(.*)<\/pre>/is

http://perldoc.com/perl5.8.4/pod/p [...] ESCRIPTION

suomi

Merci pour ta reponse.
En faisant ta modification, cela ne marche pas dans ce cas:

Code :

<html>
<PRE> MARCHE <PRE> UNDEF
UNDEF
DES chose
<PRE> TEXTE A RECUP MARCHE PAS :sedfsdfsdfsdf
sdfsdfdsfsdfsdfsfdsfdsfsdfsdfsdfsdf
sdf<\PRE>
<html>

:whistle:

Taz

bisounours-codeur

.*?

the real moins moins

suomi a écrit :

Merci pour ta reponse.
En faisant ta modification, cela ne marche pas dans ce cas:

Code :

<html>
<PRE> MARCHE <PRE> UNDEF
UNDEF
DES chose
<PRE> TEXTE A RECUP MARCHE PAS :sedfsdfsdfsdf
sdfsdfdsfsdfsdfsfdsfdsfsdfsdfsdfsdf
sdf<\PRE>
<html>

:whistle:

ben en meme temps y'a pas de "</pre>" dans ton example

---------------
Hey toi, tu veux acheter des minifigurines Lego, non ?

suomi

Bon exusez moi si j'évoque mal mon problème...

J'ai un fichier qui est en faite un code html avec plusieurs balises, pleins de texte. L'info qui m'interesse se trouve uniquement entre les balises <PRE> et <\PRE> de ce fichier. Ces balises peuvent etre en debut ou à n'importe quel endroit de la ligne. De plus ces 2 balises peuvent s'etendre sur une ou plusieurs lignes.

Pour extraire mes données voila comment je compte faire:

Code :

open (fichier,"fichier.html" );
while (my $ligne =<fichier> ){
if ($ligne =~ /<PRE>(.*)<\/PRE>/is){
print $ligne;}
}

MAis ceci ne marche pas comme pour ici:

Extrait de mon fichier:

Code :

<HR><p><PRE>>X07448|IGHV1-2*01|Homo sapiens|F|V-REGION
caggtgcagctggtgcagtctggggctgaggtgaagaagcctggggcctcagtgaaggtc
tcctgcaaggcttctggatacaccttcaccggctactatatgcactgggtgcgacaggcc
cctggacaagggcttgagtggatgggacggatcaaccctaacagtggtggcacaaactat
......
</PRE><P>
Suite.....

the real moins moins

ben forcement, si tu fais ton match sur une seule ligne et pas tout le fichier...

---------------
Hey toi, tu veux acheter des minifigurines Lego, non ?

suomi

Ben je suis désolé mais je ne vois pas trop comment faire alors... tu suggères quoi? :??:

Merci pour vos réponses

pospos

Code :

my $html = do {local $/=undef; <FICHIER>};
my ($pre) = $html =~ ...

Message édité par pospos le 25-03-2005 à 10:04:13

suomi

Merci Pospos pour ta réponse.
Ta solution marche mais que dans le cas ou il y a dnas le code html qu'une balise <PRE>....<\PRE>
Dans mon cas, il y en a plusieurs dans la page et je dois toutes les récuperer. Ici avec ta solution, il trouve la premiere et la derniere balise et il met tout entre les 2...

Publicité

suomi

Bon j'ai reussi, en intégrant la réponse de Pospos dans une boucle
Merci beaucoup pour votre aide...
:jap:

matafan

Sans boucle : /<pre>(.*?)<\/pre>/gis

Encore une fois : http://perldoc.com/perl5.8.4/pod/p [...] ESCRIPTION

FORUM HardWare.fr

Programmation

Perl

Perl: expression reguliere

Sujets relatifs
[PERL] Petite question sur substitution....[RESOLU]	perl sous windows XP
[PERL]Tache planifiée console redirigée ???	[PERL] question facile <STDIN>
acces à un fichier réseau à partir d'un script PERL	[Perl\|CGI] Pb de cookie
[Perl] sort et tri multiple !	Problème d'affichage en PERL sous UNIX
[PHP/PERL] expression régulière : apostrophe	[Perl]expression régulière
Plus de sujets relatifs à : Perl: expression reguliere

Page générée en 0.060 secondes