会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前#----------------------------- |
use Socket; |
@addresses = gethostbyname ( $name ) or die "Can't resolve $name: $!\n"; |
@addresses = map { inet_ntoa ( $_ ) } @addresses[4 .. $#addresses]; |
# @addresses is a list of IP addresses ("208.201.239.48", "208.201.239.49") |
#----------------------------- |
use Socket; |
$address = inet_ntoa ( inet_aton ( $name ) ); |
# $address is a single IP address "208.201.239.48" |
#----------------------------- |
use Socket; |
$name = gethostbyaddr ( inet_aton ( $address ), AF_INET ) |
or die "Can't resolve $address: $!\n"; |
# $name is the hostname ("www.perl.com") |
#----------------------------- |
use Socket; |
$packed_address = inet_aton ( "208.146.140.1" ); |
$ascii_address = inet_ntoa ( $packed_address ); |
#----------------------------- |
$packed = gethostbyname ( $hostname ) |
or die "Couldn't resolve address for $hostname: $!\n"; |
$address = inet_ntoa ( $packed ); |
print "I will use $address as the address for $hostname\n"; |
#----------------------------- |
# $address is the IP address I'm checking, like "128.138.243.20" |
use Socket; |
$name = gethostbyaddr(inet_aton($address), AF_INET) |
or die "Can't look up $address : $!\n"; |
@addr = gethostbyname($name) |
or die "Can't look up $name : $!\n"; |
$found = grep { $address eq inet_ntoa($_) } @addr[4..$#addr]; |
#----------------------------- |
# download the following standalone program |
#!/usr/bin/perl |
# mxhost - find mx exchangers for a host |
use Net::DNS; |
$host = shift; |
$res = Net::DNS::Resolver->new(); |
@mx = mx($res, $host) |
or die "Can't find MX records for $host ( ".$res->errorstring," ) \n"; |
foreach $record (@mx) { |
print $record->preference, " ", $record->exchange, "\n"; |
} |
#----------------------------- |
#% mxhost cnn.com |
#10 mail.turner.com |
# |
#30 alfw2.turner.com |
#----------------------------- |
# download the following standalone program |
#!/usr/bin/perl |
# hostaddrs - canonize name and show addresses |
use Socket; |
use Net::hostent; |
$name = shift; |
if ($hent = gethostbyname($name)) { |
$name = $hent->name; # in case different |
$addr_ref = $hent->addr_list; |
@addresses = map { inet_ntoa($_) } @$addr_ref; |
} |
print "$name => @addresses\n"; |
#----------------------------- |
#% hostaddrs www.ora.com |
#helio.ora.com => 204.148.40.9 |
# |
# |
#% hostaddrs www.whitehouse.gov |
#www.whitehouse.gov => 198.137.240.91 198.137.240.92 |
#----------------------------- |
by: 发表于：2017-09-15 16:56:32 顶(0) | 踩(0) 回复
？？
回复评论