MINI

C:/app/Administrator/product/11.2.0/dbhome_1/sysman/admin/scripts/db/

files >> C:/app/Administrator/product/11.2.0/dbhome_1/sysman/admin/scripts/db/gethostname.pl

 #!/usr/local/bin/perl
# 
# $Header: gethostname.pl 28-sep-2004.05:28:26 zsyed Exp $
#
# sgastart.pl
# 
# Copyright (c) 2004, Oracle. All rights reserved.  
#
#    NAME
#      sgastart.pl - Script to get hostname given target name and type
#
#    DESCRIPTION
#      This script is a substitute for repository queries
#
#    NOTES
#      -
#
#    MODIFIED   (MM/DD/YY)
#    zsyed       09/28/04 - zsyed_fix_sga_1
#    zsyed       08/23/04 - Creation
# 

$arg1 = trim($ARGV[0]);
print "em_result=";
print $arg1;

sub trim {
 my $string = shift(@_);
 $string =~ s/\s//g;
 return $string;
}