1
translate ip
Postat av rbt- den 21 April 2012, 16:01
2 kommentarer · 120 träffar
Hallå
Det är ett litet problem jag har när det gäller ett litet perl skript och det är att när jag aktiver skriptet och skriver in en webadress efter så fungerar det bra den får fram ip adressen på den. Det jag vill göra är även att man ska kunna söka på en ip adress och den ska automatiskt skriva då fqdn på den adressen.
Såhär ser mitt skript ut:
use Socket;
use Net::hostent;
use strict;
my ($name, $hent, $name1, @addresses);
$name = shift || die "usage: $0 hostname\\\\n" ;
if ($hent = gethostbyname($name)) {
$name = $hent->name; my $addr_ref = $hent->addr_list; @addresses = map { inet_ntoa($_) } @$addr_ref;
print "$name is resolved to @addresses\\\\ n";
DISK: Vilket programmering språk föredrar ni?
Det är ett litet problem jag har när det gäller ett litet perl skript och det är att när jag aktiver skriptet och skriver in en webadress efter så fungerar det bra den får fram ip adressen på den. Det jag vill göra är även att man ska kunna söka på en ip adress och den ska automatiskt skriva då fqdn på den adressen.
Såhär ser mitt skript ut:
use Socket;
use Net::hostent;
use strict;
my ($name, $hent, $name1, @addresses);
$name = shift || die "usage: $0 hostname\\\\n" ;
if ($hent = gethostbyname($name)) {
$name = $hent->name; my $addr_ref = $hent->addr_list; @addresses = map { inet_ntoa($_) } @$addr_ref;
print "$name is resolved to @addresses\\\\ n";
DISK: Vilket programmering språk föredrar ni?
