Cela suppose tout de même que le module LWP::Simple est installé. De plus, ce n'est pas très lisible... mais c'est tout petit ;-)
Un bon perl golfer devrait pouvoir faire mieux...
-- Paul Gaborit - <http://www.enstimac.fr/~gaborit/> Perl en français - <http://www.enstimac.fr/Perl/>
Régis Caspar
Magalie Sirea wrote:
Bonjour,
Je developpe pas en perl mais je rrecherche un tout petit script qui me permette de recuperer l'adresse ip que j'affiche sur le net !
Style :
Le script ce connect sur http://checkip.dyndns.org recupere la page HTML qui affiche : Current IP Address: 81.56.154.32
et m'affiche avec un simple print l'ip "81.56.154.32"
merci d'avance pour votre aide
Bonjour,
Avec curl, grep et sed et whatsmyip.com car le dyndns est discutable :
curl http://www.whatismyip.com 2>foo | grep "Your IP is" | sed -e "s/<h1>Your IP is //" -e "s/ <br></h1>//"
et sans grep : curl http://www.whatismyip.com 2>foo | sed -e "/Your IP is/!d" -e "s/<h1>Your IP is //" -e "s/ <br></h1>//"
et en perl (mais y'a probablement mieux comme code, ne marche pas pour whatsmyip.com) : ######################################################## #!perl use URI; use LWP::Simple; use strict;
##### Au choix : # my $uri = new URI 'http://www.whatismyip.com'; my $uri = new URI 'http://checkip.dyndns.org'; #### my $content = get($uri);
if ($content) { my @ip=$content=~/(d+).(d+).(d+).(d+)/; if (@ip[3]) { print join(".", @ip); } else { print "Error"; } } 1; ########################################################
-- Régis Caspar
Magalie Sirea wrote:
Bonjour,
Je developpe pas en perl mais je rrecherche un tout petit script qui me
permette de recuperer l'adresse
ip que j'affiche sur le net !
Style :
Le script ce connect sur http://checkip.dyndns.org
recupere la page HTML qui affiche :
Current IP Address: 81.56.154.32
et m'affiche avec un simple print l'ip "81.56.154.32"
merci d'avance pour votre aide
Bonjour,
Avec curl, grep et sed et whatsmyip.com car le dyndns est discutable :
curl http://www.whatismyip.com 2>foo | grep "Your IP is" | sed -e
"s/<h1>Your IP is //" -e "s/ <br></h1>//"
et sans grep :
curl http://www.whatismyip.com 2>foo | sed -e "/Your IP is/!d" -e
"s/<h1>Your IP is //" -e "s/ <br></h1>//"
et en perl (mais y'a probablement mieux comme code, ne marche pas pour
whatsmyip.com) :
########################################################
#!perl
use URI;
use LWP::Simple;
use strict;
##### Au choix :
# my $uri = new URI 'http://www.whatismyip.com';
my $uri = new URI 'http://checkip.dyndns.org';
####
my $content = get($uri);
if ($content) {
my @ip=$content=~/(d+).(d+).(d+).(d+)/;
if (@ip[3]) {
print join(".", @ip);
} else {
print "Error";
}
}
1;
########################################################
Je developpe pas en perl mais je rrecherche un tout petit script qui me permette de recuperer l'adresse ip que j'affiche sur le net !
Style :
Le script ce connect sur http://checkip.dyndns.org recupere la page HTML qui affiche : Current IP Address: 81.56.154.32
et m'affiche avec un simple print l'ip "81.56.154.32"
merci d'avance pour votre aide
Bonjour,
Avec curl, grep et sed et whatsmyip.com car le dyndns est discutable :
curl http://www.whatismyip.com 2>foo | grep "Your IP is" | sed -e "s/<h1>Your IP is //" -e "s/ <br></h1>//"
et sans grep : curl http://www.whatismyip.com 2>foo | sed -e "/Your IP is/!d" -e "s/<h1>Your IP is //" -e "s/ <br></h1>//"
et en perl (mais y'a probablement mieux comme code, ne marche pas pour whatsmyip.com) : ######################################################## #!perl use URI; use LWP::Simple; use strict;
##### Au choix : # my $uri = new URI 'http://www.whatismyip.com'; my $uri = new URI 'http://checkip.dyndns.org'; #### my $content = get($uri);
if ($content) { my @ip=$content=~/(d+).(d+).(d+).(d+)/; if (@ip[3]) { print join(".", @ip); } else { print "Error"; } } 1; ########################################################
-- Régis Caspar
Jerome
"Magalie Sirea" a écrit dans le message de news: 416fa0ff$0$29504$
Bonjour,
Je developpe pas en perl mais je rrecherche un tout petit script qui me permette de recuperer l'adresse ip que j'affiche sur le net !
Style :
Le script ce connect sur http://checkip.dyndns.org recupere la page HTML qui affiche : Current IP Address: 81.56.154.32
et m'affiche avec un simple print l'ip "81.56.154.32"
merci d'avance pour votre aide
Pourquoi ne pas faire simplement : Windows : ipconfig Linux : ifconfig
??
Cordialement
"Magalie Sirea" <Magali.sirea@laposte.net> a écrit dans le message de news:
416fa0ff$0$29504$636a15ce@news.free.fr...
Bonjour,
Je developpe pas en perl mais je rrecherche un tout petit script qui me
permette de recuperer l'adresse
ip que j'affiche sur le net !
Style :
Le script ce connect sur http://checkip.dyndns.org
recupere la page HTML qui affiche :
Current IP Address: 81.56.154.32
et m'affiche avec un simple print l'ip "81.56.154.32"
merci d'avance pour votre aide
Pourquoi ne pas faire simplement :
Windows : ipconfig
Linux : ifconfig
