Escriba un programa que, de acuerdo con si el script tiene acceso a Internet, produce una salida que es "Truthy / Falsey" . Puede intentar conectarse a cualquier sitio existente, a su propia discreción (no use un sitio sombreado que solo tenga un tiempo de actividad del 10%; intente mantener un tiempo de actividad anual superior al 80%). Si el sitio está caído, su programa no tiene que funcionar.

Debe ser un programa independiente o una función . Puede usar bibliotecas fuera de la biblioteca estándar para lograr esto. Las lagunas estándar están prohibidas. Este es el código de golf, por lo que gana el código con el conteo de bytes más corto.

Pseudocódigo de ejemplo:

function a:
    try:
        connect to internet 
        return 1
    catch error:
        return 0

Esta es mi primera publicación en el código de golf, por lo que si esto viola alguna regla de alguna manera o es un engaño, por favor avísenme.

EDITAR: Debido a numerosas sugerencias, he eliminado la restricción de conteo de bytes UTF-8

Bash (con dnsutils ), 3 bytes

Envía una solicitud DNS para "." (Raíz DNS), el código de salida es 0 para el éxito y> 0 en caso contrario.

Golfed

dig

Prueba

% dig >/dev/null; echo $?;        
0

% nmcli nm wifi off
% dig >/dev/null; echo $?;
9

Descargo de responsabilidad

Obviamente, esto solo funcionará si su servidor DNS está en la red del proveedor, es decir, en "Internet" (ya que su red de proveedor normalmente forma parte de él), o si su sistema está utilizando un servidor DNS público (como 8.8.8.8 de Google, que usan los sistemas basados ​​en Android), de lo contrario, puede obtener una copia en caché de un servidor LAN local (o localhost).

Pero supongo que esto no va en contra de las reglas del código de golf , ya que obviamente hay más de un sistema en el que esto funciona según lo previsto.

Los métodos HTTP puros también pueden dar falsos positivos, debido a un proxy de almacenamiento en caché intermedio, y no se garantiza que funcionen en todas partes, por lo que no es algo exclusivo de este método.

Una versión un poco más confiable, 8 bytes

dig +tra

(Un pequeño homenaje a @ Dig ital Tra uma!)

Habilita el "modo de rastreo", que obligará a cavar a hacer la búsqueda recursiva por sí mismo (consulte https://serverfault.com/a/778830 ), evitando cualquier problema de caché.

Bash + GNU utils, 8

• 5 bytes guardados gracias a @Muzer.

wget to.

Las otras respuestas de shell comprueban el código de retorno y hacen eco de alguna salida de estado en consecuencia. Esto es innecesario El código de retorno de shell ya es un código utilizable de Truthy / Falsey y accesible en el $?parámetro que es idiomático para bash. El código de retorno 0 significa verdadero. El código de retorno> 0 significa falso.

En uso:

ubuntu@ubuntu:~$ wget to.
--2017-01-13 09:10:51--  http://to./
Resolving to. (to.)... 216.74.32.107, 216.74.32.107
Connecting to to. (to.)|216.74.32.107|:80... connected.
HTTP request sent, awaiting response... 200 OK
Length: 11510 (11K) [text/html]
Saving to: ‘index.html.6’

index.html.6        100%[===================>]  11.24K  --.-KB/s    in 0.04s   

2017-01-13 09:10:51 (285 KB/s) - ‘index.html.6’ saved [11510/11510]

ubuntu@ubuntu:~$ echo $?
0
ubuntu@ubuntu:~$ sudo ifconfig ens33 down
ubuntu@ubuntu:~$ wget to.
--2017-01-13 09:11:00--  http://to./
Resolving to. (to.)... failed: Temporary failure in name resolution.
wget: unable to resolve host address ‘to.’
ubuntu@ubuntu:~$ echo $?
4
ubuntu@ubuntu:~$ sudo ifconfig ens33 up
ubuntu@ubuntu:~$ # Local network up, upstream link down
ubuntu@ubuntu:~$ wget to.
--2017-01-13 09:11:34--  http://to./
Resolving to. (to.)... failed: Name or service not known.
wget: unable to resolve host address ‘to.’
ubuntu@ubuntu:~$ echo $?
4
ubuntu@ubuntu:~$ 

Lote de 8 bytes.

ping to.

pingestablecerá ERRORLEVELa 1si la dirección no se puede resolver o alcanzado.

05AB1E , 11 9 bytes

Guardado 2 bytes en "a". cortesía de ev3commander

…to..wgX›

Comprueba si la longitud del contenido en http: // a . es mayor que 1.
.wdevuelve 0 en caso de error.

MATL , 15 14 bytes

Un byte guardado gracias a la sugerencia de Kevin Cruijssen

'http://to.'Xi

La salida es a través de STDOUT. Esto muestra una cadena no vacía que contiene caracteres distintos de cero (lo cual es cierto) si hay una conexión a Internet; y no muestra nada (lo cual es falso) si no hay conexión.

Esto no se puede probar en línea porque Xino está permitido en los intérpretes en línea.

Explicación

'http://to.'  % Push this string
Xi            % Return contents of that URL as a string. If there is no Internet
              % connection this gives an error, with no output on STDOUT

Bash 66 62 21 bytes

ping -c1 g.gl echo $?

Gracias @Alex L. por el consejo de acortamiento de URL.

Versión sin golf:

r=$(ping -c1 g.gl)
if [ $? -ne 0 ];
 then echo "0"
else echo "1"
fi

Esta es mi primera respuesta en Bash, no estoy seguro de haber acortado lo suficiente el script.

R, 20 bytes

curl::has_internet()

Hay una función para exactamente esta tarea en el curlpaquete.

Java, 72 bytes

a->new java.net.InetSocketAddress("to.",80).getAddress().isReachable(9);

Perl, 15 bytes

print`curl to.`

Corre con:

perl -e 'print`curl to.`' 2> /dev/null

curlsalidas de productos STDERR, no les importa. Si la computadora tiene acceso a Internet, imprimirá algunas líneas de html (verdadero), de lo contrario, no imprimirá nada (falso).

Ahorré 1 bytes usando to.(en lugar de mi anterior b.io) gracias a @Kevin Cruijssen.

C #, 87 bytes

_=>{try{new System.Net.WebClient().OpenRead("http://g.gl");return 1;}catch{return 0;}};

Si una excepción se considera falsey, que no creo que sea, entonces son 65 bytes:

_=>new System.Net.WebClient().OpenRead("http://g.gl").ReadByte();

También intenté usar el enlace http://to.según lo indicado por @KevinCruijssen pero no pareció funcionar.

8 , 23 21 bytes

Dos bytes guardados gracias a la sugerencia de Kevin Cruijssen y a mi descubrimiento:http: // parece funcionar tan bien comohttp: // a . (guardando otro byte)

"http://to" net:get .

Si se puede acceder al sitio http: // to , se imprime true. De lo contrario, se imprime false. Deja los datos recuperados en la pila.

MATLAB, 32 22 bytes

urlread('http://g.gl')

Explicación:

Si la conexión a Internet está activa, esto dará como resultado ans(la variable predeterminada) una cadena con todo el código html en texto plano (lo cual es cierto en MATLAB).

Si la conexión a Internet no funciona, esto escribirá un mensaje de error en STDERR y dejará el espacio de trabajo vacío (que es falso en MATLAB).

Desafortunadamente, urlreadrequiere una dirección URL completa , por g.gllo que no es suficiente. 11 de los 22 bytes son, por lo tanto, solo la dirección URL.

Enfoque alternativo:

Una solución que detecta el error y deja un 0 (también falso ) en el espacio de trabajo si la conexión no funciona:

0;try urlread('http://g.gl'),end

0;inicializa la variable predeterminada ansa 0, que está falseen MATLAB. Luego vamos trya leer la url. Esto dará un error si la conexión a Internet no funciona, o una matriz de caracteres si no (que está trueen MATLAB).

No necesitamos atrapar nada, así que simplemente terminamos. Si la llamada urlread fue exitosa, entonces ansserá una cadena larga con el contenido del sitio web, de lo contrario ans=0.

Bash, 39 bytes

exec 4<>/dev/tcp/to./80&&echo 1||echo 0

JavaScript ES6, 71 43 bytes

fetch``.then(a=>alert(1)).catch(a=>alert``)

Alertas 1 si está en línea, alerta una cadena vacía si está fuera de línea. Gracias a Patrick Roberts por ayudarme a eliminar algunos bytes

Versión antigua

_=>fetch('http://enable-cors.org').then(a=>alert(a)).catch(a=>alert(0))

Alertas [object Reponse]si está en línea, alertas 0si está fuera de línea

Se eliminó el fragmento de código, no funciona porque se carga desde un dominio diferente sin CORS, pero funciona en la consola del navegador

JavaScript ES6, 90 81 Bytes

f=a=>{i=new Image();i.src="//placehold.it/1x1";i.onload=b=>a(1);i.onerror=c=>a()}

JavaScript ES6, 22 21 bytes (no válido)

Algunos navegadores no son totalmente compatibles o no producen el resultado esperado cuando se utiliza navigator.onLine.

f=a=>navigator.onLine

Scala, 54 bytes

x=>(Runtime.getRuntime exec "ping -c 1 ai."waitFor)<1

Bastante simple; ejecuta un comando ping a http://ai./, y devuelve verdadero si sale con 0, o falso en caso contrario.

Brainfuck (no competidor) 21 bytes

++++++[>++++++++<-]>.

Brainfuck no puede conectarse a Internet (por lo que yo sé), por lo que como el programa no puede conectarse, la respuesta es siempre 0

No compite porque parece caer dentro del vacío estándar de salida codificado , a pesar de que este programa técnicamente es correcto para el desafío.

Powershell, 64 26 23 bytes

Ahorró 38 bytes, gracias a Shawn Esterman

Guardado 3 bytes y script reparado, gracias a briantist

Test-Connection -q g.gl

PHP, 23 PHP + Curl, 14

Usando el operador de backtick de PHP:

<?=`curl to.`;

Respuesta original:

Intentaré comenzar:

<?=file('http://x.gl');

Esto no genera nada si no se puede alcanzar x.gl y Arraysi lo es.

Otra versión donde no estoy muy seguro si encajan:

<?=getmxrr('x.gl',$a);  // 22 chars

Python 3 + solicitudes, 59 55 53 bytes

Tiene que haber una respuesta de solicitud, ¿verdad?

from requests import*
try:get("http://to.")
except:Z

El estado de salida es 0 para internet, 1 para no internet. Ejemplo:

$ python inet.py 
$ echo $?
0
$ # Remove ethernet cable
$ python inet.py 
$ echo $?
1

Registro de cambios:

• -4 bytes (gracias Mego)

Elixir, 33 bytes

{:ok,_}=:inet.getaddr('to',:inet)

0 si está conectado, 1 de lo contrario.

PowerShell , 12 bytes

!!(irm g.gl)

Mathematica 10 Bytes

Suponiendo que tiene una copia válida de Mathematica y credenciales de inicio de sesión en user.wolfram.com

CloudPut@1

escribirá el valor 1 en la nube. Verdad: CloudObject [""] Falsey: $ Failed

CloudGet@%

Devolverá el valor 1 que se cargó en la nube.

Python 2.7, 70 77 Bytes

from urllib import*
a=1
try:urlopen('http://to.')
except:a=0
print a

import urllib as l
try: 
 l.urlopen('http://a.uk')
 print 1
except:
 print 0

Utiliza 1 para la verdad, 0 para la falsedad. a.uk redirige a una empresa de ropa de motos. Se guardaron 3 bytes al asignar a una variable e imprimir eso. Y otro para el "a". truco (confirmado para trabajar con urllib), dos para deshacerse de los molestos sangrados.

Julia + Bash (con dnsutils), 10 bytes

run(`dig`)

`command`en julia crea un cmdobjeto con el que se puede ejecutar run.

Clojure, 49 bytes

#(try(slurp"http://to.")1(catch Exception _ nil))

Devuelve 1si se puede conectar, y de lo nilcontrario.

Solo intenta slurpla página; lanzando una NoRouteToHostExceptionexcepción en caso de falla, que se detecta.

Desafortunadamente, el protocolo y el punto parecen ser obligatorios.

Javascript (Nashorn), 61 bytes

print(new java.net.InetSocketAddress("to.",80).getAddress())

Basado en la respuesta Java de Huntro.