Hostname: Difference between revisions
Content added Content deleted
(added haskell, not tested) |
|||
Line 27: | Line 27: | ||
{{works with|gcc|4.0.1}} |
{{works with|gcc|4.0.1}} |
||
{{works with|POSIX|.1}} |
{{works with|POSIX|.1}} |
||
<c>#include <limits.h> |
|||
#include <unistd.h> |
|||
int main() |
|||
{ |
|||
char name[_POSIX_HOST_NAME_MAX+1]; |
|||
gethostname(name, _POSIX_HOST_NAME_MAX+1); |
|||
return 0; |
|||
} |
|||
}</c> |
|||
=={{header|C sharp|C#}}== |
=={{header|C sharp|C#}}== |
||
<csharp>System.Net.Dns.GetHostName();</csharp> |
|||
=={{header|Factor}}== |
=={{header|Factor}}== |
||
host-name |
host-name |
||
=={{header|Haskell}}== |
|||
{{libheader|network}} |
|||
import Network.BSD |
|||
main = do hostName <- getHostName |
|||
putStrLn hostName |
|||
=={{header|IDL}}== |
=={{header|IDL}}== |
||
Line 47: | Line 54: | ||
=={{header|Java}}== |
=={{header|Java}}== |
||
<java>String hostname = java.net.InetAddress.getLocalHost().getHostName();</java> |
|||
=={{header|OCaml}}== |
=={{header|OCaml}}== |
||
Line 55: | Line 62: | ||
{{works with|Perl|5.8.6}} |
{{works with|Perl|5.8.6}} |
||
{{libheader|Sys::Hostname}} |
{{libheader|Sys::Hostname}} |
||
<perl>use Sys::Hostname; |
|||
$name = hostname;</perl> |
|||
=={{header|PHP}}== |
=={{header|PHP}}== |
||
<php>echo $_SERVER['HTTP_HOST'];</php> |
|||
=={{header|Pop11}}== |
=={{header|Pop11}}== |
||
Line 67: | Line 74: | ||
=={{header|Python}}== |
=={{header|Python}}== |
||
{{works with|Python|2.5}} |
{{works with|Python|2.5}} |
||
<python>import socket |
|||
host = socket.gethostname()</python> |
|||
=={{header|Tcl}}== |
=={{header|Tcl}}== |
Revision as of 01:44, 2 September 2008
Hostname
You are encouraged to solve this task according to the task description, using any language you may know.
You are encouraged to solve this task according to the task description, using any language you may know.
Find the name of the host on which the routine is running.
Ada
Works with GCC/GNAT
with GNAT.Sockets; .... Name : constant string := GNAT.Sockets.Host_Name); -------- with GNAT.Sockets with Ada.Strings.Unbounded;use Ada.Strings.Unbounded; ... Name : Unbounded_String; ... Name := TO_Unbounded(GNAT.Sockets.Host_Name); --------- with GNAT.Sockets ... Name : Access String; ... Name := new String'(GNAT.Sockets.Host_Name);
C
<c>#include <limits.h>
- include <unistd.h>
int main() {
char name[_POSIX_HOST_NAME_MAX+1]; gethostname(name, _POSIX_HOST_NAME_MAX+1); return 0;
}</c>
C#
<csharp>System.Net.Dns.GetHostName();</csharp>
Factor
host-name
Haskell
import Network.BSD main = do hostName <- getHostName putStrLn hostName
IDL
hostname = GETENV('computername')
Java
<java>String hostname = java.net.InetAddress.getLocalHost().getHostName();</java>
OCaml
<ocaml>Unix.gethostname()</ocaml>
Perl
<perl>use Sys::Hostname;
$name = hostname;</perl>
PHP
<php>echo $_SERVER['HTTP_HOST'];</php>
Pop11
lvars host = sys_host_name();
Python
<python>import socket host = socket.gethostname()</python>
Tcl
The basic introspection tool in TCL is the info command. It can be used to find out about the version of the current Tcl or Tk, the available commands and libraries, variables, functions, the level of recursive interpreter invocation, and, amongst a myriad other things, the name of the current machine:
set hname [info hostname]
Toka
2 import gethostname 1024 chars is-array foo foo 1024 gethostname foo type