HTTP/3 協定出爐
The Road to QUIC
HTTP/3
可以開始閱讀 HTTP/3 相關的文件。
![]() |
| From https://http3-explained.haxx.se/images/quic-stack.png |
HTTP/3 主要在 UDP 上建立一個新的協定,QUIC (Transfer protocol over UDP)。
![]() |
| From https://http3-explained.haxx.se/images/quic-stack.png |
#!/usr/bin/env tclsh
#
# A script to login ptt BBS
# tclsh -encoding big5 login.tcl host user username password
#
package require Expect
set timeout 60
encoding system big5
spawn ssh [lindex $argv 1]@[lindex $argv 0]
expect "請輸入代號,或以 guest 參觀,或以 new 註冊:" {
exp_send "[binary decode base64 [lindex $argv 2]]\r"
expect "請輸入您的密碼:" { exp_send "[binary decode base64 [lindex $argv 3]]\r" }
}
interact
#!/usr/bin/env bash
tclsh -encoding big5 ~/bin/login.tcl ptt.cc bbs dXNlcg== cGFzc3dk
#!/usr/bin/env tclsh
set path [lsort -unique [split $::env(PATH) ":"]]
foreach p $path {
puts $p
}
#!/usr/bin/env tclsh
puts "Platform: $tcl_platform(os)"
puts "Arch: $tcl_platform(machine)"
set command [list set a 5]
set value [eval {*}$command]
puts $value
set command [list ls -al]
exec >@stdout 2>@stderr {*}$command
proc uuid {} {
try {
package require sqlite3
sqlite3 db1 ":memory:"
set u [db1 onecolumn {select (hex(randomblob(16)))}]
db1 close
return [string range $u 0 7]-[string range $u 8 11]-[string range $u 12 15]-[string range $u 16 19]-[string range $u 20 end]
} on error {em} {
error $em
}
}