clip.tk

来自「《Beginning Linux Programming》书的配置实例源代码。」· 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]"