clip.tk

来自「linux的程序设计第二版 是学习LINUX下程序设计的好教程哦」· 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]"