[Perl] récuperer dans une variable le contenu d'un fichier HTML

récuperer dans une variable le contenu d'un fichier HTML [Perl] - Programmation

Marsh Posté le 02-07-2001 à 20:36:19    

En perl,comment récuperer dans une variable le contenu d'un fichier HTML ( les tags,....)
car en fait je voudrais analyser certains tags ( les <img< </img> ) pour le comparer à d'autres fichiers HTML.
 
Ce que je veux savoir c'est la récupération  sans tout insérer dans un fichier toute les données du fichier HTML car le script doit être optimisé.
Merci d'avance pour votre aide.

Reply

Marsh Posté le 02-07-2001 à 20:36:19   

Reply

Marsh Posté le 02-07-2001 à 20:43:36    

Pardon, Cette question je viens de la résoudre.
LA VRAIE QUESTION EST :
 
Comment "re-lire" les données de cette variable qui contient le doc html en entier.
Je veux savoir si dans un tel doc il y a des TAG du type <IMG> ...</IMG>

Reply

Marsh Posté le 03-07-2001 à 01:50:26    

Pourkoi quand tu lis ton fichier tu fais pas plutôt une recherche en pattern-matching? Du style:
while (<FILE> )    (lecture du fichier)
     {
     if $_ =~ /^<IMG>.*</IMG>$/    (recherche ligne commençant par <IMG> et finissant par </IMG> )
         {
         et là tu sais que t'as trouvé tes tags donc tu fais ce que tu veux avec
         }
     }
Non?

Reply

Marsh Posté le 03-07-2001 à 09:43:46    

Je n'utilise pas un fichier , mais une variable (type reférence \.var ).
Ce que je ceux savoir, c'est comment relire cette variable.

Reply

Marsh Posté le 03-07-2001 à 09:43:57    

Je n'utilise pas un fichier , mais une variable (type reférence \.var ).
Ce que je veux savoir, c'est comment relire cette variable.

Reply

Marsh Posté le 06-07-2001 à 22:05:22    

Ben... pour mettre ton fichier dans la variable, tu dois bien faire une sorte de lecture non???

Reply

Marsh Posté le 07-07-2001 à 00:05:20    

Relire une variable ? ...
Bah pour vérifier si la variable contient <img> utilises
$fichier =~ |<img>(.*)</img>|;
je crois qu'il y a une moyen pour traiter les occurences les unes après les autres dans une boucle mais je me rappelle plus du paramètre... regarde dans la doc
perldoc perlre ou qqch comme ça
 
A+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed