extraire une chaine

Version imprimable

03/10/2014, 09h01
ifr38

extraire une chaine

Bonjour a tous,

Je viens vers vous car je débute en perl et je n'arrive pas à résoudre mon problème..
J'ai une chaine :

[<HTML><HEAD><META URL=https://196.214.79.38"/></HEAD><BODY> Click here </BODY></HTML>]

et je voudrais pouvoir récupérer mon adresse IP uniquement.J'ai bien vu que les regex était super efficace en perl mais je n'arrive pas encore à bien les manier.

Merci,
A+

par rapport à ta chaine initiale, j'ai du rajouter un backslash devant le guillemet (après le 38)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 #!/usr/local/bin/perl use strict; use warnings; print("Salut Larry\n\n"); my $chaine = "[<HTML><HEAD><META URL=https://196.214.79.38\"/></HEAD><BODY> Click here </BODY></HTML>]"; if( $chaine =~ m/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/ ){ print "IP :: $1\n"; }
les parenthèses permettent de récupérer l'ip si elle existe et de valoriser la variable interne perl $1.

cette regex recherche une sous chaine composée de 1 à 3 décimales (entre 0 et 9), soit 4, ou bien 45 ou encore 859 (pour l'exemple) suivi d'un point.
cette recherche est répété 4 fois dans la regex pour correspondre au format d'une ip. La recherche du point ne se fait que 3 fois, of course.

Je te conseille de lire la page suivante : http://lhullier.developpez.com/tutor...l/intro/#Lno-I

pour avoir l'adresse en entier:
Code:

1 2 3 if( $chaine =~ m/META URL="([^"])"\/>/{ print "IP :: $1\n"; }

03/10/2014, 10h05
Philou67430

Je pense aussi que dans la chaine à matcher il manque le guillemet de début d'URL.
03/10/2014, 10h22
ifr38

Merci a vous tous :D

Malheureusement je n'ai pas oublié de " et je ne peux pas rajouter de \ après mon IP a la chaine que je récupère :/
03/10/2014, 10h26
ifr38

Mais la solution de JeanMi marche parfaitement ..

Merci beaucoup pour l'aide, les regex et moi ca fait 2 (pour l'instant) ;)
03/10/2014, 11h50
6ril23

Citation:

Envoyé par ifr38

Mais la solution de JeanMi marche parfaitement ..

Merci beaucoup pour l'aide, les regex et moi ca fait 2 (pour l'instant) ;)

si tu n'a pas le " au début tu l'enlève de la regex et le \ et juste pour que la regex considère le / comme un caractère à matcher
je pense que si tu enlèves le " dans ma regex ça marche aussi :D

Le seul problème avec la regex de @JeanMi3000, c'est qu'il ne prend pas l'adresse complète (tu n'en as peut être pas besoin) mais surtout si tu as une une URL qui n'a pas la forme 127.0.0.1 (ex: DNS) tu ne la récupéreras pas
03/10/2014, 18h58
Lolo78

J'ajoute que, même si c'est faisable et simple de récupérer une adresse IP, il n'est généralement pas recommandé d'utiliser des expression régulières pour parser du HTML (ou du XML ou du Json, d'ailleurs). Pour un cas aussi simple, ça va, mais n'essaie pas d'en faire beaucoup plus avec des regex sur du HTML. Il y a des modules spécialisés pour parser le HTML.
04/10/2014, 11h44
vidici

Citation:

Envoyé par ifr38

Merci a vous tous :D

Malheureusement je n'ai pas oublié de " et je ne peux pas rajouter de \ après mon IP a la chaine que je récupère :/

Il n'y a de problème de guillemets que lorsque insère directement le string dans le script perl (pour des test par exemple ).
si le string provient d'un fichier externe on a pas de guillemets à echapper

sinon comme disait Monsieur Lolo, use HTML::SimpleLinkExtor marche très bien.
06/10/2014, 09h34
Philou67430

Concernant les guillemets, la chaine à parser étant :

<HTML><HEAD><META URL=https://196.214.79.38"/></HEAD><BODY> Click here </BODY></HTML>

(voir 1er message)

je persiste en indiquant qu'il manque une guillemet après "URL=" pour que la chaine soit HTML valid, et donc, puisse être correctement analysée par un parser HTML.

Maintenant, si la chaine est

<HTML><HEAD><META URL="https://196.214.79.38"/></HEAD><BODY> Click here </BODY></HTML>

pas de soucis bien sûr (mais ifr38 semblait dire que malheureusement, il ne manquait pas de guillemet, laissant entendre que la chaine récupérée n'est pas HTML valid)
06/10/2014, 13h46
vidici

a propos de guillemets et d'échappements.
Je suis entrain d'écrire du code qui sert à écrire du code. C'est la première fois que je fais ça et je trouve que c'est la croix et la bannière justement en ce qui concerne les échappements de guillemets, les échappements d'échappements d'échappements, etc ...
06/10/2014, 14h06
Philou67430

Connais tu la fonction quotemeta ?
Un petit perldoc -f quotemeta t'aidera sans doute ;)
06/10/2014, 14h10
ifr38

Citation:

Envoyé par Philou67430

pas de soucis bien sûr (mais ifr38 semblait dire que malheureusement, il ne manquait pas de guillemet, laissant entendre que la chaine récupérée n'est pas HTML valid)

effectivement, je recupere le code HTML (dont je ne suis pas l'auteur) tel quel.. il est possible qu'il ne soit pas "valid" mais cela m'importe peu puisqu'uniquement l'adresse IP m'interesse ;)
06/10/2014, 14h24
Philou67430

Si tu veux mettre en œuvre les méthodes proposées à l'aide d'un parser HTML, cette précision a toute son importance au contraire.
06/10/2014, 18h20
vidici
Citation:

Envoyé par Philou67430

Connais tu la fonction quotemeta ?
Un petit perldoc -f quotemeta t'aidera sans doute ;)

merci, je connaissais pas..
par contre ça m'aide pas des masses après un rapide premier essai
car si pour
Code:

1 2 3 perl -e ' print quotemeta "hell o"' hell\ o~:
j'ai bien un échappement d'espace, c'est bien tout ce j'arrive à faire avec
Code:

1 2 3 perl -e ' print quotemeta "hell'o"' >
j'ai une invite à laquelle je ne sais répondre. Mais peut être que je m'y prend mal.
06/10/2014, 18h49
Lolo78

J'ai l'impression que Philou voulait parler des expressions "quote and quote-like" : q(), qq(), qw(), etc. Sachant que les paires de parenthèses peuvent être remplacées par des crochets, des accolades, etc.

Il y a aussi les "heredocs".
07/10/2014, 09h15
Philou67430

Non, je voulais bien parler de la fonction d'échappement quotemeta :) (mais j'ai peut-être mal compris la question initiale).
En revanche, si tu veux créer des chaines littérales contenant des guillemets, il faut naturellement éviter d'utiliser des guillemets, et plutôt les opérateurs q() et qq() introduit par lolo.
07/10/2014, 10h35
vidici
Citation:

Envoyé par Philou67430

(mais j'ai peut-être mal compris la question initiale).
.

pour reprendre l'exemple déja donné
si je veux obtenir ceci dans un fichier.pl

Code:

system "LC_CTYPE=C sed '/^'_dn__idcc_02_12_03_'/d' /Users/mac/commentaires.txt > tmp && mv -f tmp /Users/mac/commentaires.txt";

il faut pour écrire ce premier, que dans l'autre script pl j'écrive
Code:

1 2 3 my $system = 'system "LC_CTYPE=C sed \'/^\''."$search".'\'/d\' '."$fichcom".' > tmp && mv -f tmp '."$fichcom".'";'; say $in $system;
et là c'est simple. J'imagine même pas avec une regex compliquée.
un cauchemar certainement.
07/10/2014, 11h55
Philou67430

Donc effectivement c'est ce dont parlais lolo :

Code:

my $system = qq(system "LC_CTYPE=C sed /^$search/d $fichcom > tmp && mv -f tmp $fichcom");

Attention cependant au contenu de $seach pour lequel il faudra peut-être appeler "quotemeta" afin de s'assurer que les caractères spéciaux de regexp soient échappés.

Cela dit, appeler sed avec system en perl me semble contre nature (en plus d'être non portable).