Tulis sebuah program yang, sesuai dengan apakah skrip memiliki akses ke internet, menghasilkan output yang "Truthy / Falsey" . Anda dapat mencoba dan terhubung ke situs yang ada, atas kebijakan Anda sendiri (jangan gunakan situs teduh yang hanya memiliki 10% uptime - cobalah untuk tetap di atas 80% uptime tahunan). Jika situs tidak aktif, program Anda tidak harus berfungsi.

Itu harus program mandiri atau fungsi . Anda dapat menggunakan perpustakaan di luar perpustakaan standar untuk mencapai ini. Celah standar dilarang. Ini adalah kode golf, jadi kode dengan byte-count terpendek akan menang.

Contoh pseudocode:

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

Ini adalah posting pertama saya di golf kode, jadi jika ini melanggar aturan dengan cara apa pun atau merupakan penipuan, harap beri tahu saya.

EDIT: Karena banyak saran, saya telah menghapus batasan jumlah byte UTF-8

Bash (dengan dnsutils ), 3 byte

Mengirim permintaan DNS untuk "." (DNS root), kode keluar adalah 0 untuk sukses dan> 0 sebaliknya.

Golf

dig

Uji

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

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

Penolakan

Ini jelas hanya akan berfungsi jika server DNS Anda duduk di jaringan penyedia, yaitu di "Internet" (karena jaringan penyedia Anda biasanya merupakan bagian dari itu), atau jika sistem Anda menggunakan server DNS publik (seperti 8.8.8.8 dari Google, yang menggunakan sistem berbasis Android), karena jika tidak, Anda bisa mendapatkan salinan cache dari server LAN lokal (atau localhost).

Tapi saya berasumsi ini tidak melanggar aturan kode-golf , karena jelas ada lebih dari satu sistem di mana ini berfungsi sebagaimana dimaksud.

Metode Pure-HTTP juga dapat memberikan hasil positif palsu, karena proxy caching perantara, dan tidak dijamin untuk bekerja di mana-mana, sehingga bukan sesuatu yang unik untuk metode ini.

Versi yang sedikit lebih andal, 8 byte

dig +tra

(sedikit upeti ke @ Dig ital Tra uma!)

Mengaktifkan "mode jejak", yang akan memaksa penggalian untuk melakukan pencarian rekursif dengan sendirinya (lihat https://serverfault.com/a/778830 ), menghindari masalah cache.

Utilitas Bash + GNU, 8

• 5 byte disimpan berkat @Muzer.

wget to.

Shell yang lain menjawab memeriksa kode kembali dan mengulangi beberapa keluaran status yang sesuai. Ini tidak perlu. Kode pengembalian shell sudah menjadi kode Truthy / Falsey yang dapat digunakan dan dapat diakses di $?parameter yang idiomatis untuk bash. Kode pengembalian 0 berarti Benar. Kode pengembalian> 0 berarti Salah.

Digunakan:

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

Batch, 8 byte

ping to.

pingakan diatur ERRORLEVELke 1jika alamat tidak dapat diselesaikan atau dicapai.

05AB1E , 11 9 byte

Disimpan 2 byte pada "ke." milik ev3commander

…to..wgX›

Cek apakah panjang konten di http: // hingga . lebih besar dari 1.
.wmengembalikan 0 pada kesalahan.

MATL , 15 14 byte

Satu byte diselamatkan berkat Kevin Cruijssen saran 's

'http://to.'Xi

Output melalui STDOUT. Ini menampilkan string tidak kosong yang berisi karakter bukan nol (yang benar) jika ada koneksi Internet; dan tidak menampilkan apa pun (yang palsu) jika tidak ada koneksi.

Ini tidak dapat diuji secara online karena Xitidak diperbolehkan dalam juru bahasa online.

Penjelasan

'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 byte

ping -c1 g.gl echo $?

Terima kasih @Alex L. untuk tip pemendek URL.

Versi tidak disatukan:

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

Ini adalah jawaban pertama saya di Bash, saya tidak yakin saya telah memperpendek skrip.

R, 20 byte

curl::has_internet()

Ada fungsi untuk tugas ini dalam curlpaket.

Java, 72 byte

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

Perl, 15 byte

print`curl to.`

Jalankan dengan:

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

curlmenampilkan barang STDERR, jangan pedulikan mereka. Jika komputer memiliki akses ke internet, ia akan mencetak beberapa baris html (benar), jika tidak, ia tidak akan mencetak apa pun (falsy).

Disimpan 1 byte dengan menggunakan to.(bukan milik saya sebelumnya b.io) berkat @Kevin Cruijssen.

C #, 87 byte

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

Jika pengecualian dianggap falsey, yang menurut saya tidak, maka ini adalah 65 byte:

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

Saya juga mencoba menggunakan tautan http://to.seperti yang dinyatakan oleh @KevinCruijssen tetapi tampaknya tidak berhasil.

8 , 23 21 byte

Dua byte disimpan berkat saran Kevin Cruijssen dan penemuan saya:http: // tampaknya berfungsi jugahttp: // ke . (menyimpan byte lain)

"http://to" net:get .

Jika situs http: // dapat dijangkau, maka situs tersebut akan dicetak true. Kalau tidak mencetak false. Itu meninggalkan data yang diambil di stack.

MATLAB, 32 22 byte

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

Penjelasan:

Jika koneksi internet naik, ini akan menghasilkan ans(variabel default) menjadi string dengan seluruh kode-html dalam teks biasa (yang benar dalam MATLAB).

Jika koneksi internet mati, ini akan menulis pesan kesalahan ke STDERR dan membiarkan ruang kerja kosong (yang salah di MATLAB).

Sayangnya, urlreadmemerlukan url-address lengkap , jadi g.gltidak cukup. Oleh karena itu 11 dari 22 byte hanyalah alamat-url.

Pendekatan alternatif:

Solusi yang menangkap kesalahan dan meninggalkan 0 (juga salah ) di ruang kerja jika koneksi terputus:

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

0;menginisialisasi variabel default ansmenjadi 0, yang ada falsedi MATLAB. Kemudian kita trymembaca url. Ini akan memberikan kesalahan jika koneksi internet turun, atau array karakter jika tidak (yang ada truedi MATLAB).

Kita tidak perlu menangkap apa pun, jadi kita berakhir saja. Jika panggilan urlread berhasil, maka ansakan menjadi string panjang dengan konten situs web, jika tidak ans=0.

Bash, 39 byte

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

JavaScript ES6, 71 43 byte

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

Lansiran 1 jika online, beri tahu string kosong jika offline. Terima kasih kepada Patrick Roberts karena membantu saya mencukur beberapa byte

Versi lama

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

Lansiran [object Reponse]jika online, lansiran 0jika offline

Menghapus cuplikan kode, tidak berfungsi karena memuat dari domain lain tanpa CORS, tetapi bekerja di konsol browser

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 byte (Tidak Valid)

Beberapa browser tidak sepenuhnya mendukung, atau menghasilkan hasil yang diharapkan saat menggunakan navigator.onLine.

f=a=>navigator.onLine

Scala, 54 byte

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

Cukup mudah; mengeksekusi perintah ping http://ai./, dan mengembalikan true jika keluar dengan 0, atau false sebaliknya.

Brainfuck (tidak bersaing) 21 byte

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

Brainfuck tidak dapat terhubung ke internet (sejauh yang saya ketahui), jadi karena program ini tidak dapat terhubung, jawabannya selalu 0

Non-bersaing karena tampaknya berada di bawah celah standar keluaran hard-coded , meskipun program ini secara teknis tepat untuk tantangan.

Powershell, 64 26 23 byte

Disimpan 38 byte, terima kasih kepada Shawn Esterman

Disimpan 3 byte, dan skrip diperbaiki, terima kasih kepada briantist

Test-Connection -q g.gl

PHP, 23 PHP + Curl, 14

Menggunakan operator backtick PHP:

<?=`curl to.`;

Jawaban orisinal:

Saya akan mencoba memulai:

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

Ini menghasilkan apa-apa jika x.gl tidak dapat dijangkau dan Arrayjika itu.

Versi lain di mana saya tidak yakin apakah mereka cocok:

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

Python 3 + permintaan, 59 55 53 byte

Harus ada jawaban permintaan, kan?

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

Status keluar adalah 0 untuk internet, 1 untuk tidak ada internet. Contoh:

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

Changelog:

• -4 byte (terima kasih Mego)

Elixir, 33 byte

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

0 jika terhubung, 1 sebaliknya.

PowerShell , 12 byte

!!(irm g.gl)

Mathematica 10 Bytes

Dengan asumsi Anda memiliki salinan Mathematica yang valid, dan masuk kredensial di user.wolfram.com

CloudPut@1

akan menulis nilai 1 ke cloud. Truthy: CloudObject [""] Falsey: $ Failed

CloudGet@%

Akan mengembalikan nilai 1 yang diunggah ke cloud.

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

Gunakan 1 untuk truey, 0 untuk falsy. a.uk dialihkan ke perusahaan pakaian sepeda motor. Disimpan 3 byte dengan menetapkan ke variabel dan mencetaknya. Dan satu lagi untuk "untuk." trik (dikonfirmasi untuk bekerja dengan urllib), dua untuk menghilangkan indentasi sial.

Julia + Bash (dengan dnsutils), 10 byte

run(`dig`)

`command`di julia menciptakan cmdobjek yang bisa dijalankan run.

Clojure, 49 byte

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

Kembali 1jika dapat terhubung, dan nilsebaliknya.

Hanya mencoba ke slurphalaman; melempar NoRouteToHostExceptionpengecualian pada kegagalan, yang tertangkap.

Sayangnya, protokol dan titik tampaknya wajib.

Javascript (Nashorn), 61 byte

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

Berdasarkan jawaban Java Huntro.