my $nas = qsearchs('nas',{'nasnum'=>$port->nasnum});
#kcuy
my( $ip, $nasip, $nasfqdn ) = ( $port->ip, $nas->nasip, $nas->nasfqdn );
my $nas = qsearchs('nas',{'nasnum'=>$port->nasnum});
#kcuy
my( $ip, $nasip, $nasfqdn ) = ( $port->ip, $nas->nasip, $nas->nasfqdn );