Напишите программу, которая в зависимости от того, имеет ли сценарий доступ к Интернету, выдает результат «Правда / Ложь» . Вы можете попытаться подключиться к любому существующему сайту по своему усмотрению (не используйте сомнительный сайт, у которого только 10% времени безотказной работы - старайтесь поддерживать более 80% годового времени безотказной работы). Если сайт не работает, ваша программа не не имеет к работе.

Это должна быть отдельная программа или функция . Вы можете использовать библиотеки за пределами стандартной библиотеки для достижения этой цели. Стандартные лазейки запрещены. Это код гольф, поэтому выигрывает код с самым коротким числом байтов.

Пример псевдокода:

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

Это мой первый пост о коде гольфа, поэтому, если он каким-либо образом нарушает какие-либо правила или является обманом, пожалуйста, предупредите меня.

РЕДАКТИРОВАТЬ: из-за многочисленных предложений, я снял ограничение на количество байтов UTF-8

Баш (с днсутилс ), 3 байта

Отправляет DNS-запрос на "." (DNS root), код выхода равен 0 для успеха и> 0 в противном случае.

Golfed

dig

Контрольная работа

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

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

отказ

Очевидно, это будет работать только в том случае, если ваш DNS- сервер находится в сети провайдера, то есть в «Интернете» (поскольку сеть вашего провайдера обычно является его частью), или если ваша система использует общедоступный DNS-сервер (например, 8.8.8.8). от Google, которую используют системы на базе Android), иначе вы можете получить кэшированную копию с сервера локальной сети (или локального хоста).

Но я предполагаю, что это не противоречит правилам игры в гольф , так как очевидно, что существует несколько систем, в которых это работает, как задумано.

Методы Pure-HTTP также могут давать ложные срабатывания из-за промежуточного прокси-сервера кэширования и не гарантируют, что они будут работать везде, так что это не является чем-то уникальным для этого метода.

Чуть более надежная версия, 8 байт

dig +tra

(Небольшая дань @ Dig ital Tra uma!)

Включает «режим трассировки», который заставляет dig самостоятельно выполнять рекурсивный поиск (см. Https://serverfault.com/a/778830 ), избегая проблем с кешем.

Утилиты Bash + GNU, 8

• 5 байтов сохранено благодаря @Muzer.

wget to.

Другие ответы оболочки проверяют код возврата и выводят соответствующий вывод состояния. Это не нужно. Код возврата оболочки уже является пригодным для использования кодом Truthy / Falsey и доступен в $?параметре, который идиоматичен для bash. Код возврата 0 означает True. Код возврата> 0 означает Ложь.

В использовании:

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:~$ 

Пакетный, 8 байт

ping to.

pingбудет установлен ERRORLEVELв 1случае , если адрес не может быть разрешен или достигнут.

05AB1E , 11 9 байтов

Сохранено 2 байта на «к». предоставлено ev3commander

…to..wgX›

Проверяет, если длина содержимого в http: // to . больше 1.
.wвозвращает 0 при ошибке.

MATL , 15 14 байтов

Один байт сохранен благодаря Kevin Cruijssen внушения «s

'http://to.'Xi

Выход через STDOUT. Это отображает непустую строку, содержащую ненулевые символы (что правда), если есть подключение к Интернету; и ничего не отображает (что ложно), если нет соединения.

Это не может быть проверено онлайн, потому что Xiв онлайн-переводчиках это запрещено.

объяснение

'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

Баш 66 62 21 байт

ping -c1 g.gl echo $?

Спасибо @Alex L. за совет по сокращению URL.

Безголовая версия:

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

Это мой первый ответ на Bash, я не уверен, что достаточно сократил сценарий.

R, 20 байтов

curl::has_internet()

В curlпакете есть функция именно для этой задачи .

Java, 72 байта

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

Perl, 15 байт

print`curl to.`

Бежать с:

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

curlвыводит вещи на себя STDERR, не обращайте на них внимания. Если компьютер имеет доступ к Интернету, он напечатает несколько строк html (правда), в противном случае он ничего не напечатает (ложь).

Сохранено 1 байт с помощью to.(вместо моего предыдущего b.io) благодаря @Kevin Cruijssen.

C #, 87 байт

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

Если исключение считается ложным, чего я не считаю, то это 65 байт:

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

Я также попытался использовать ссылку, http://to.как заявлено @KevinCruijssen, но, похоже, она не работает.

8 , 23 21 байт

Два байта сохраняется благодаря Kevin Cruijssen по предложению и к моему открытию:http: // to, кажется, работает так же хорошо, какhttp: // to . (сохранение другого байта)

"http://to" net:get .

Если сайт http: // to может быть достигнут, он печатает true. В противном случае это печатает false. Он оставляет полученные данные в стеке.

MATLAB, 32 22 байта

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

Объяснение:

Если подключение к Интернету установлено, это приведет к тому, что ans(переменная по умолчанию) будет строкой со всем html-кодом в виде простого текста (что верно в MATLAB).

Если подключение к Интернету не работает, это выведет сообщение об ошибке в STDERR и оставит рабочее пространство пустым (что неверно в MATLAB).

К сожалению, urlreadтребуется полный URL-адрес , поэтому g.glне достаточно. Таким образом, 11 из 22 байтов являются просто URL-адресом.

Альтернативный подход:

Решение, которое улавливает ошибку и оставляет 0 (также false ) в рабочей области, если соединение не работает:

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

0;инициализирует переменную ansпо умолчанию 0, которая находится falseв MATLAB. Тогда мы будем tryчитать URL. Это выдаст ошибку, если интернет-соединение не работает, или символьный массив, если нет (который находится trueв MATLAB).

Нам не нужно ничего ловить, поэтому мы просто заканчиваем. Если вызов urlread прошел успешно, ansв противном случае будет длинная строка с содержимым сайта ans=0.

Баш, 39 байт

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

JavaScript ES6, 71 43 байта

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

Оповещения 1, если онлайн, оповещения о пустой строке, если офлайн. Спасибо Патрику Робертсу за помощь в сборе некоторых байтов

Старая версия

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

Оповещения, [object Reponse]если онлайн, оповещения, 0если офлайн

Удален фрагмент кода, он не работает, потому что загружается из другого домена без CORS, но работает в консоли браузера

JavaScript ES6, 90 81 байт

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

JavaScript ES6, 22 21 байт ( неверно )

Некоторые браузеры не полностью поддерживают или дают ожидаемый результат при использовании navigator.onLine.

f=a=>navigator.onLine

Scala, 54 байта

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

Довольно просто; выполняет команду ping http://ai./и возвращает true, если она завершается с 0, или false в противном случае.

Brainfuck (неконкурентный) 21 байт

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

Brainfuck не может подключиться к Интернету (насколько я знаю), поэтому, поскольку программа не может подключиться, ответ всегда 0

Не конкурирует, потому что кажется, что попадает под жестко закодированную стандартную лазейку вывода , даже если эта программа технически подходит для этой задачи.

Powershell, 64 26 23 байта

Сохранено 38 байтов, благодаря Шону Эстерману

Сохранено 3 байта и исправлен скрипт, спасибо briantist

Test-Connection -q g.gl

PHP, 23 PHP + Curl, 14

Использование оператора обратного вызова PHP:

<?=`curl to.`;

Оригинальный ответ:

Я постараюсь начать:

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

Это ничего не выдает, если x.gl не может быть достигнуто и Arrayесли это так.

Другая версия, где я не совсем уверен, подходят ли они:

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

Python 3 + запросы, 59 55 53 байта

Должен быть ответ на запросы, верно?

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

Состояние выхода 0 для интернета, 1 для интернета нет. Пример:

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

Changelog:

• -4 байта (спасибо Мего)

Эликсир, 33 байта

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

0, если подключен, 1 в противном случае.

PowerShell , 12 байт

!!(irm g.gl)

Mathematica 10 байт

Предполагая, что у вас есть действительная копия Mathematica и учетные данные для входа на user.wolfram.com

CloudPut@1

запишет значение 1 в облако. Правда: CloudObject [""] Falsey: $ Failed

CloudGet@%

Вернет значение 1, которое было загружено в облако.

Python 2.7, 70 77 байт

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

Использует 1 для правдивых, 0 для ложных. a.uk перенаправляет в компанию по производству мотоциклетной одежды. Сохранено 3 байта путем присвоения переменной и ее печати. И еще один для "до". трюк (подтвержденный для работы с urllib), два для избавления от надоедливых отступов.

Юлия + Баш (с днсутилсом), 10 байт

run(`dig`)

`command`В Джулии создает cmdобъект, который может быть запущен с run.

Clojure, 49 байтов

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

Возвращает, 1если он может подключиться, и в nilпротивном случае.

Просто попытки slurpна страницу; выбрасывать NoRouteToHostExceptionисключение при неудаче, которая ловится.

К сожалению, протокол и точка кажутся обязательными.

Javascript (Нашорн), 61 байт

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

Основано на ответе Хантро на Java.