[Toulouse-pm] Une JAPH

Michel Rodriguez mirod at xmltwig.com
Tue May 20 14:23:02 CDT 2003


Salut,

Bon, comme je viens de passer un bout de temps a re-creer une JAPH qu'il
me semble avoir vu un jour je sais plus ou, je vous la refait (elle ne
marche probablement que sur un *nix, et il faut etre en ligne, sinon
gethostbyaddr va pas retourner grand chose):

perl -le'$,=q, ,;\
sub v { (scalar gethostbyaddr $_[0], 2)=~\ m{\.([^.]*)\.} }\
print map { v $_} (v63.122.103.10, v64.9.121.196, v208.201.239.56,\
v212.55.216.102)'

Rigolo non?

-- 
Michel Rodriguez
Perl & XML
http://www.xmltwig.com



More information about the Toulouse-pm mailing list