Final Ping Test Result
Posted to
tcl
by Napier at Sat Feb 28 01:33:20 GMT 2015
view raw
proc
RunPing {} {
set
fh [
open
"|ping www.google.com" r]
after
2000
exec
kill -INT [
pid
$fh
]
after
2000
set
test [
lrange
[
split
[
read
-nonewline
$fh
] \n] end-1 end]
puts
$test
}
Recent Posts
lilypond by Bradipo
18 hours ago
tcl by cgm
11 days ago
tcl by dandyn
19 days ago
tcl by Stu
20 days ago
tcl by dandyn
22 days ago
tcl by Stu
25 days ago
tcl by philbr-t
30 days ago
tcl by arjen
31 days ago
tcl by brain
38 days ago
tcl by mjanssen
40 days ago
Submit
New paste
Documentation
From Jabber