< < PerlFR > >
E-Nef | Art Roman | Voyager | Cartes ()
dragon

   PerlFR :
   Perl en Français dans le texte

Plan du Site
Contact
my.perlfr v0.1
 


Rubriques


Recherche sur le Site





Bookmarks


Recommandation de Lecture


Questions ?
Dites nous ce que vous avez pensé de cette page

 Excellent
 Vaut le coup de le lire
 Sans intérêt
 Pas assez technique
 Juste comme il faut
 Trop technique



Cours de Perl
next up previous index
suivant: Accès aux fichiers dbm monter: Utilisation des options de précédent: Recherche/remplacement dans plusieurs fichiers   Index

Extraction d'informations

Soit un fichier au format HTML dont on veut extraire toutes les références. Ceci peut être effectué en une seule ligne, grâce à l'option -n qui lit chaque ligne des fichiers précisés, mais sans la réécrire ensuite. Attention, on fait ici l'hypothèse que toutes les URLs tiennent sur une seule ligne, ce qui n'est pas forcément le cas. Pour des gestions plus complètes, utilisez les modules adéquats (HTML::*).


perl -ne 'print $1, "\n" while 
          (/\/ig)' *.html

Un deuxième exemple :


ypcat passwd | perl -ne 'print $2, "\n"
                         if (/(.+?:){4}(.+?):.+\/bin\/sh/)'



Olivier Aubert
1999-06-01



Publicité

© Copyright 1998-2008 Emmanuel PIERRE. Libre reproduction sous Licence LLDDv1.
Pour tout commentaire, webmaster at perlfr.org
Dernière MaJ

Valid XHTML 1.0!

No Patents/