Напишіть програму, яка відповідно до того, чи має сценарій доступ до Інтернету, дає вихід, який є "Truthy / Falsey" . Ви можете спробувати підключитися до будь-якого існуючого веб-сайту на власний розсуд (не використовуйте тінистий сайт, який має лише 10% часу роботи - намагайтеся не перевищувати 80% річного часу роботи). Якщо сайт не працює, програма не повинна працювати.

Це повинна бути окрема програма або функція . Для цього ви можете використовувати бібліотеки поза стандартною бібліотекою. Стандартні лазівки заборонені. Це кодовий гольф, тому виграє код з найкоротшим числом байтів.

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

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

Це моє перше повідомлення про гольф з кодом, тому якщо це якимось чином порушує правила або є дурнем, будь ласка, попередити мене.

EDIT: Через численні пропозиції я зняв обмеження кількості байтів UTF-8

Bash (з dnsutils ), 3 байти

Надсилає запит DNS для "." (DNS-корінь), вихідний код 0 для успіху та> 0 в іншому випадку.

Гольф

dig

Тест

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

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

Відмова від відповідальності

Це, очевидно, працює лише в тому випадку, якщо ваш DNS- сервер сидить у мережі провайдера, тобто в "Інтернеті" (оскільки мережа вашого постачальника зазвичай є його частиною) або якщо ваша система використовує загальнодоступний сервер DNS (наприклад, 8.8.8.8 від Google, яку використовують системи на базі Android), інакше ви можете отримати кешовану копію з локального локального сервера (або localhost).

Але я припускаю, що це не суперечить правилам кодового гольфу , оскільки, очевидно, існує більше однієї системи, де це працює за призначенням.

Методи Pure-HTTP також можуть давати помилкові позитиви, завдяки проміжному проксі-кешуванню, і не гарантовано, що вони працюють всюди, тому це не є унікальним для цього методу.

Трохи надійніша версія, 8 байт

dig +tra

(невелика данина @ Dig ital Tra uma!)

Вмикає "режим слідування", який змусить копати сам робити рекурсивний пошук (див. 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

Bash 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

Це моя перша відповідь на Баша, я не впевнений, що я досить скоротив сценарій.

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 (truthy), інакше він не надрукує нічого (фальшивий).

Збережено 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 байт

Два байти збереглися завдяки пропозиції Кевіна Круїссена та моєму відкриттю: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 (також хибне ) в робочій області, якщо з'єднання відсутнє:

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 байти та відремонтовано сценарій, завдяки брианісту

Test-Connection -q g.gl

PHP, 23 PHP + Curl, 14

Використання оператора backtick 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

Журнал змін:

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

Еліксир, 33 байти

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

0, якщо підключено, 1 інакше.

PowerShell , 12 байт

!!(irm g.gl)

Математика 10 байт

Припустимо, що у вас є дійсна копія Mathematica та облікові дані для входу на user.wolfram.com

CloudPut@1

запише значення хмари 1. Truthy: CloudObject [""] Falsey: $ Помилка

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), два для позбавлення від набридливих відступів.

Джулія + Баш (з dnsutils), 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 на Huntro.