Add a perlmini.o and perlmini.c akin to opmini.o and opmini.c, for ./miniperl
[perl.git] / lib / hostname.pl
1 # From: asherman@fmrco.com (Aaron Sherman)
2 #
3 # This library is no longer being maintained, and is included for backward
4 # compatibility with Perl 4 programs which may require it.
5 #
6 # In particular, this should not be used as an example of modern Perl
7 # programming techniques.
8 #
9 # Suggested alternative: Sys::Hostname
10 #
11 sub hostname
12 {
13         local(*P,@tmp,$hostname,$_);
14         if (open(P,"hostname 2>&1 |") && (@tmp = <P>) && close(P))
15         {
16                 chop($hostname = $tmp[$#tmp]);
17         }
18         elsif (open(P,"uname -n 2>&1 |") && (@tmp = <P>) && close(P))
19         {
20                 chop($hostname = $tmp[$#tmp]);
21         }
22         else
23         {
24                 die "$0: Cannot get hostname from 'hostname' or 'uname -n'\n";
25         }
26         @tmp = ();
27         close P; # Just in case we failed in an odd spot....
28         $hostname;
29 }
30
31 1;