[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