clip.tk

来自「Linux程序设计(原书第2版)源码」· TK 代码 · 共 13 行

#!/usr/bin/wish -f
interp create foo 

foo eval {
    load {} Tk
    clipboard clear
    clipboard append -type STRING "Clipboard Data"
    
}
       interp delete foo
puts "[selection get -selection CLIPBOARD]"