perl script to find the host name

[lilly07]

I am using following code to find the hostname/dns name of a linux server.

(grep {chomp;} system ('hostname -s'))[0];

And the name of the server gets printed as XXX. And I am trying assign this value to $host as below. But it is not working and $host name is null. How do I assign XXX to $host.

$host =(grep {chomp;} system ('hostname -s'))[0];
print "The host name is $host \n";

Please let me know. Thanks.

[eWish]

perlfaq9

use Net::Domain qw(hostname hostfqdn hostdomain);

my $host = hostname();
print "The host name is $host \n";

--Kevin

[lilly07]

Thank you so much and it worked.

[Ritusriv]

Also you can try as,

use Sys::Hostname;

my  $host = hostname;