Select Code to Download

Machine hardware:   sun4u
OS version:         5.8
...
  #print "Hostname: $hostname\n";
  return 0;
}

perl hostname.pl
hostname: not defined
*****
correct_UNIX_box_name
****

sub getHostname {
  $hostname = system "/bin/hostname";
  print "Hostname: ", $hostname, "\n";
  return 0;
}

perl hostname.pl
hostname: not defined
...
correct_UNIX_box_name
Hostname: 0
****

print "Hostname: ";
getHostname;
...
  system "/bin/hostname";
  return 0;
}

Hostname:

correct_UNIX_box_name

perl hostname.pl
hostname: not defined
*****
correct_UNIX_box_name
Hostname: ****