hostname.pl

通过perl写的一个脚本，用于主机通过网页获取主机别名。

#!/usr/bin/perl

use CGI qw(:all);

%host_names =(
'172.20.100.37' => 'ZABBIX-WX_主',
'172.20.100.38' => 'dbtool',

。。。。。

'172.20.200.112' => '某某服务器',
);

print header(-charset=>'UTF-8',);
my ($host) = param();

my $ip =param($host);

print "$host_names{$ip}\n";