Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: gethostbyname: What does $aliases look like?

by tomfahle (Priest)
on Sep 14, 2009 at 07:32 UTC ( #795072=note: print w/replies, xml ) Need Help??


in reply to gethostbyname: What does $aliases look like?

Just add some aliases where it doesn't hurt and it's easy to figure out. (I use a tiny virtual machine for this purpose.)

#!/usr/bin/perl use strict; use warnings; use Dumpvalue; # Core Module, dumps like the debugger my $dumper = new Dumpvalue; my $host = shift; my ($name,$aliases,$addrtype,$length,@addrs) = gethostbyname($host) or + die "Can't resolve $host $!\n"; print "$aliases\n"; $dumper->dumpValue(\$aliases);

My /etc/hosts file

127.0.0.1 localhost tf-laptop my-laptop

Running the above code with the argument localhost yields:

$ perl gethostbyname.pl localhost tf-laptop my-laptop -> 'tf-laptop my-laptop'

$aliases is a string holding the aliases seperated by whitespace.

Hth
Thomas

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://795072]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2021-10-25 23:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (90 votes). Check out past polls.

    Notices?