Programmes & scripts > Scripts Perl
De l'Adresse IP au nom d'hôte

Obtenir à partir d'une adresse IP le nom de l'hôte

Cliquer ici pour une d´monstration

Vous pouvez consulter le code ci-dessous

#!/usr/bin/perl -w

use CGI;

$query = new CGI;

$p1 = $query->param('p1');

$p2 = $query->param('p2');

$p3 = $query->param('p3');

$p4 = $query->param('p4');

if(($p1 ne "" || $p2 ne "") || ($p3 ne "" || $p4 ne ""))

{

  my $ip = "$p1.$p2.$p3.$p4";

  my @bytes = split (/\./, $ip);       # tableau des 4 nombres séparés par des points de l'IP

  my $packAddr = pack ("C4", @bytes);  # encodage de l'IP en un entier compacté

  $name = gethostbyaddr($packAddr, 2);

  if($name eq "")

  {

    $res = "<p>R&eacute;sultat:<p>Pas de nom d'h&ocirc;te pour l'adresse IP, $ip<p>";

  }else{

    $res = "<p>Pour l'adresse IP, $ip, le nom de l'h&ocirc;te est $name<p>";

  };

}else{

  $res = "";

};

print <<EOF;

Content-type: text/html\n\n

<html>

<head>

<title>De l'Adresse IP au nom d'h&ocirc;te</title>

</head>

<body>

$res

<p>Ce formulaire permet d'obtenir un nom d'h&ocirc;te &agrave; partir d'une

adresse IP

<p>Entrer l'adresse IP:<p>

<form>

<input maxlength=3 name=p1 size=3 type=text value="">

. <input maxlength=3 name=p2 size=3 type=text value="">

. <input maxlength=3 name=p3 size=3 type=text value="">

. <input maxlength=3 name=p4 size=3 type=text value="">

<p>

&nbsp; &nbsp; &nbsp;

<input type=submit value=Valider>

&nbsp; &nbsp; &nbsp;

<input type=reset value=Effacer>

</form>

</body>

</html>

EOF

exit(0);

Sserveur:
Maintenu:
Modifié:

Programmes & scripts > Scripts Perl De l'Adresse IP au nom d'hôte

Programmes & scripts > Scripts Perl
De l'Adresse IP au nom d'hôte