哪位高手指点下怎么样用perl编写在Tk界面上显示动态的时间，谢谢啦！
答案:1 悬赏:30 手机版
解决时间 2021-02-23 01:50
- 提问者网友：酱爆肉
- 2021-02-22 07:38
哪位高手指点下怎么样用perl编写在Tk界面上显示动态的时间，谢谢啦！
最佳答案
- 五星知识达人网友：人類模型
- 2021-02-22 08:07
手头上没有perl的TK包，不好测试。
写一段已测试过的tcl/tk代码你参考一下吧。
#!/bin/sh
# the next line restarts using wish
exec wish "$0" ${1+"$@"}
proc timer {} {
global clk
set clk [clock format [clock seconds]]
after 1000 timer
}
pack [label .clk -textvar clk]
timer追问我试了下只能写出一个静态的时间，时间不能一秒秒地动。
Tk是不是有个专门写时间的组件。还是要怎么循环一下，请指教。追答不需要循环，用递归算法，你看我写after 1000 timer那一句，就是相当于perl里面 sleep 1;return timer();追问我是刚学perl 的菜鸟，对于什么是递归算法。我是一窍不通，算了。我自己再研究研究。
多谢了！追答递归跟perl没关系，很多计算机语言都会用到，你百度一下递归，了解一下就好了，不是很复杂。
写一段已测试过的tcl/tk代码你参考一下吧。
#!/bin/sh
# the next line restarts using wish
exec wish "$0" ${1+"$@"}
proc timer {} {
global clk
set clk [clock format [clock seconds]]
after 1000 timer
}
pack [label .clk -textvar clk]
timer追问我试了下只能写出一个静态的时间，时间不能一秒秒地动。
Tk是不是有个专门写时间的组件。还是要怎么循环一下，请指教。追答不需要循环，用递归算法，你看我写after 1000 timer那一句，就是相当于perl里面 sleep 1;return timer();追问我是刚学perl 的菜鸟，对于什么是递归算法。我是一窍不通，算了。我自己再研究研究。
多谢了！追答递归跟perl没关系，很多计算机语言都会用到，你百度一下递归，了解一下就好了，不是很复杂。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯