在PERL里如何通过主机名字获得主机IP地址？

deathcult

Hi! see here please:

1. 
   
2. #!/usr/local/bin/perl -w
   
3. 
   
4. use strict;
   
5. my $host = "www.chinaunix.net";
   
6. my $addr = (gethostbyname ($host))[4];
   
7. my @ip_numbers = unpack ("C4", $addr);
   
8. my $ip_address = join (".", @ip_numbers);
   
9. 
   
10. print "$ip_address\n";
    

复制代码