เขียนโปรแกรมซึ่งตามไม่ว่าจะเป็นสคริปต์ที่มีการเข้าถึงอินเทอร์เน็ตที่ผลิตออกซึ่งเป็น"Truthy / Falsey" คุณอาจลองและเชื่อมต่อกับเว็บไซต์ใด ๆ ที่มีอยู่ตามดุลยพินิจของคุณเอง (อย่าใช้ไซต์ที่ร่มรื่นซึ่งมีเวลาในการทำงานเพียง 10% - พยายามที่จะรักษาสถานะการทำงานต่อปีที่สูงกว่า 80%) หากไซต์หยุดทำงานโปรแกรมของคุณไม่ต้องทำงาน

มันจะต้องเป็นโปรแกรมแบบสแตนด์อโลนหรือฟังก์ชั่น คุณอาจใช้ห้องสมุดนอกห้องสมุดมาตรฐานเพื่อให้บรรลุนี้ ช่องโหว่มาตรฐานเป็นสิ่งต้องห้าม นี่คือรหัสกอล์ฟดังนั้นรหัสที่มีจำนวนไบต์สั้นที่สุดจะเป็นผู้ชนะ

ตัวอย่างรหัสเทียม:

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

นี่คือการโพสต์ครั้งแรกของฉันในการตีกอล์ฟดังนั้นถ้าสิ่งนี้ละเมิดกฎใด ๆ หรือเป็นผู้ล่อลวงโปรดแจ้งเตือนฉัน

แก้ไข: เนื่องจากข้อเสนอแนะจำนวนมากฉันได้ลบข้อ จำกัด จำนวน UTF-8 ไบต์

Bash (กับdnsutils ), 3 ไบต์

ส่งคำขอ DNS สำหรับ "." (DNS root) รหัสออกเป็น 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) มิฉะนั้นคุณสามารถรับสำเนาแคชจากเซิร์ฟเวอร์LANท้องถิ่น(หรือ localhost)

แต่ฉันคิดว่านี่ไม่ได้ขัดกับกฎของcode-golfเนื่องจากมีระบบมากกว่าหนึ่งระบบที่ทำงานได้ตามที่ต้องการ

วิธีการ Pure-HTTP ยังสามารถให้ผลบวกเท็จเนื่องจากพร็อกซีแคชกลางและไม่รับประกันว่าจะทำงานได้ทุกที่ดังนั้นจึงไม่ใช่สิ่งที่แปลกใหม่สำหรับวิธีนี้

รุ่นที่น่าเชื่อถือมากขึ้นเล็กน้อย 8 ไบต์

dig +tra

(ส่วยเล็ก ๆ น้อย ๆ ที่ @ Dig ital Tra uma!)

เปิดใช้งาน "โหมดติดตาม" ซึ่งจะบังคับให้เครื่องขุดทำการค้นหาแบบเรียกซ้ำด้วยตัวเอง (ดูhttps://serverfault.com/a/778830 ) เพื่อหลีกเลี่ยงปัญหาแคชใด ๆ

Bash + GNU utils, 8

• บันทึก 5 ไบต์ด้วย @Muzer

wget to.

คำตอบเชลล์อื่น ๆ ตรวจสอบโค้ดส่งคืนและสะท้อนเอาต์พุตสถานะบางอย่างตามนั้น สิ่งนี้ไม่จำเป็น โค้ดส่งคืนเชลล์เป็นโค้ด Truthy / Falsey ที่สามารถใช้งานได้และสามารถเข้าถึงได้ใน$?พารามิเตอร์ซึ่งเป็นสำนวนสำหรับการทุบตี โค้ดส่งคืน 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 ไบต์ใน "ถึง" มารยาทของผู้บังคับบัญชา EV3

…to..wgX›

ตรวจสอบว่าความยาวของเนื้อหาที่เป็นที่http: // ไป มากกว่า 1
.wส่งคืนค่า 0 เนื่องจากข้อผิดพลาด

MATL , 15 14 ไบต์

หนึ่งไบต์บันทึกขอบคุณคำแนะนำของKevin Cruijssen

'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

นี่เป็นคำตอบแรกของฉันใน 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 แต่ดูเหมือนจะไม่ทำงาน

8th , 23 21 ไบต์

บันทึกสองไบต์ขอบคุณคำแนะนำของ Kevin Cruijssenและจากการค้นพบของฉัน:http: //ดูเหมือนว่าจะทำงานได้ดีเช่นกันhttp: // ไป (บันทึกอีกหนึ่งไบต์)

"http://to" net:get .

หากสามารถเข้าถึงไซต์http: // ได้ไซต์จะพิมพ์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 ที่ประสบความสำเร็จนั้นจะเป็นสายยาวที่มีเนื้อหาของเว็บไซต์มิฉะนั้นansans=0

Bash, 39 ไบต์

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

JavaScript ES6, 71 43 ไบต์

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

แจ้งเตือน 1 ถ้าออนไลน์แจ้งเตือนสตริงที่ว่างเปล่าหากออฟไลน์ ขอบคุณ Patrick Roberts ที่ช่วยให้ฉันสามารถกำจัดบางไบต์

เวอร์ชั่นเก่า

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

แจ้งเตือน[object Reponse]หากออนไลน์แจ้งเตือน0หากออฟไลน์

ลบข้อมูลโค้ดมันไม่ทำงานเพราะโหลดจากโดเมนอื่นที่ไม่มี CORS แต่ทำงานในคอนโซลเบราว์เซอร์

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 ไบต์ (ไม่ถูกต้อง)

เบราว์เซอร์บางตัวไม่สนับสนุนอย่างเต็มที่หรือสร้างผลลัพธ์ที่คาดหวังเมื่อใช้ navigator.onLine

f=a=>navigator.onLine

สกาลา 54 ไบต์

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

ค่อนข้างง่าย ดำเนินการคำสั่ง ping ไปที่http://ai./และส่งกลับค่าจริงถ้ามันออกด้วย 0 หรือเท็จอย่างอื่น

Brainfuck (ไม่แข่งขัน) 21 ไบต์

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

Brainfuck ไม่สามารถเชื่อมต่อกับอินเทอร์เน็ต (เท่าที่ฉันทราบ) ดังนั้นเนื่องจากโปรแกรมไม่สามารถเชื่อมต่อได้คำตอบจึงเป็นเช่นนั้นเสมอ 0

ไม่ใช่การแข่งขันเนื่องจากดูเหมือนว่าจะตกอยู่ภายใต้ช่องโหว่มาตรฐานของการส่งออกที่กำหนดโค้ดแบบยากแม้ว่าโปรแกรมนี้ในทางเทคนิคจะถูกต้องสำหรับความท้าทาย

Powershell, 64 26 23 ไบต์

บันทึกแล้ว 38 ไบต์ขอบคุณ Shawn Esterman

บันทึก 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 ไบต์ (ขอบคุณ Mego)

Elixir, 33 ไบต์

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

0 ถ้าเชื่อมต่อเป็นอย่างอื่น 1

PowerShellขนาด 12 ไบต์

!!(irm g.gl)

Mathematica 10 Bytes

สมมติว่าคุณมีสำเนา Mathematica ที่ถูกต้องและข้อมูลรับรองการเข้าสู่ระบบใน user.wolfram.com

CloudPut@1

จะเขียนค่า 1 ไปยังคลาวด์ ความจริง: 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) สองอย่างสำหรับกำจัดเยื้องที่น่ารำคาญ

Julia + Bash (พร้อม dnsutils) ขนาด 10 ไบต์

run(`dig`)

`command`ใน Julia สร้างวัตถุที่สามารถทำงานกับcmdrun

Clojure, 49 ไบต์

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

ส่งคืน1หากสามารถเชื่อมต่อและเป็นnilอย่างอื่น

แค่พยายามไปslurpที่หน้า; โยนNoRouteToHostExceptionข้อยกเว้นเกี่ยวกับความล้มเหลวซึ่งถูกจับได้

น่าเสียดายที่โพรโทคอลและดอทดูเหมือนจะเป็นข้อบังคับ

Javascript (Nashorn), 61 ไบต์

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

ตามคำตอบ Java ของ Huntro